The Atari Compendium

home *** CD-ROM | disk | FTP | other *** search

/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / editor.fas < prev next >

Wrap

CLISP byte-compiled Lisp program | 1993-06-05 | 93.0 KB | 1,867 lines

(SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.)) #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP") #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01) (EDITOR ED *USE-ED*) ) #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D4 63 01 36 03 2F E0 0F 01 19 01) EDITOR *FEATURES* ) #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "EDITOR") #Y(#:TOP-LEVEL-FORM-5 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL *WINDOW*) *WINDOW* ) #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL GLOBAL-SCREEN-HEIGHT) GLOBAL-SCREEN-HEIGHT ) #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL GLOBAL-SCREEN-WIDTH) GLOBAL-SCREEN-WIDTH ) #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL BLANKS) BLANKS ) #Y(#:TOP-LEVEL-FORM-9 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) WITH-WINDOW SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-WINDOW #30Y(00 01 00 01 00 08 8C 02 D4 D5 D6 D7 D8 D9 D4 DA B0 6B 02 1F 73 04 DB 6B 02 1F 59 03 19 04 ) LET ((*WINDOW* (SYSTEM::MAKE-WINDOW))) UNWIND-PROTECT MULTIPLE-VALUE-BIND (GLOBAL-SCREEN-HEIGHT GLOBAL-SCREEN-WIDTH) (SYSTEM::WINDOW-SIZE *WINDOW*) ((BLANKS (MAKE-STRING GLOBAL-SCREEN-WIDTH :INITIAL-ELEMENT #\Space))) ((CLOSE *WINDOW*)) ) ) #Y(#:TOP-LEVEL-FORM-10 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) BELL SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(BELL #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (WRITE-CHAR #\Bell *TERMINAL-IO*) ) ) #Y(#:TOP-LEVEL-FORM-11 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-SET-CURSOR SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-SET-CURSOR #34Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 0F 94 54 70 95 54 54 70 D6 D7 AB AB 59 04 19 05 AA 2D 01 19 03 ) 3. SYSTEM::MACRO-CALL-ERROR SYSTEM::SET-WINDOW-CURSOR-POSITION *WINDOW* ) ) #Y(#:TOP-LEVEL-FORM-12 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-HOME SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-HOME #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN-SET-CURSOR 0. 0.) ) ) #Y(#:TOP-LEVEL-FORM-13 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-CLEAR-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CLEAR-SCREEN #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::CLEAR-WINDOW *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-14 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-CLEAR-END-OF-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CLEAR-END-OF-SCREEN #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::CLEAR-WINDOW-TO-EOT *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-15 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CLEAR-END-OF-LINE #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::CLEAR-WINDOW-TO-EOL *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-16 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-INSERT-LINE #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::INSERT-WINDOW-LINE *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-17 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-DELETE-LINE #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::DELETE-WINDOW-LINE *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-18 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-CURSOR-ON SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CURSOR-ON #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::WINDOW-CURSOR-ON *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-19 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-CURSOR-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CURSOR-OFF #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::WINDOW-CURSOR-OFF *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-20 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-REVERSE-ON SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-REVERSE-ON #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::HIGHLIGHT-ON *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-21 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SCREEN-REVERSE-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-REVERSE-OFF #22Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 03 C0 19 03 AA 2D 01 19 03) 1. SYSTEM::MACRO-CALL-ERROR (SYSTEM::HIGHLIGHT-OFF *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-NEW-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-NEW-LINE #18Y(00 01 00 00 00 02 A9 5C 36 06 BE EF 9B EC 2F 1B 19 02) STRING-CHAR ) ) #Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) MAKE-EMPTY-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-EMPTY-TEXT #29Y(00 00 00 01 00 07 37 01 03 0E 00 EB A9 5C 36 06 BF EC 69 1B D5 67 02 A9 2F 18 15 19 02 ) GLOBAL-SCREEN-HEIGHT 0. GET-NEW-LINE ) ) #Y(#:TOP-LEVEL-FORM-24 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) MAKE-MARK SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MAKE-MARK #33Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 0E 94 54 70 95 54 54 70 D6 AA AA 59 03 19 05 AA 2D 01 19 03 ) 3. SYSTEM::MACRO-CALL-ERROR CONS ) ) #Y(#:TOP-LEVEL-FORM-25 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) MARK-LIN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MARK-LIN #28Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 09 94 54 70 D6 A9 59 02 19 04 AA 2D 01 19 03 ) 2. SYSTEM::MACRO-CALL-ERROR CAR ) ) #Y(#:TOP-LEVEL-FORM-26 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) MARK-COL SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MARK-COL #28Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 09 94 54 70 D6 A9 59 02 19 04 AA 2D 01 19 03 ) 2. SYSTEM::MACRO-CALL-ERROR CDR ) ) #Y(#:TOP-LEVEL-FORM-27 #588Y(00 00 00 00 00 01 00 29 04 BE 0B 00 00 BF 0B 00 01 C0 0B 00 02 C1 0B 00 03 D8 2D 05 D8 A9 65 06 01 30 96 DB DC DB 5C D8 DD 60 06 00 60 07 01 60 08 02 60 09 03 6B 08 00 30 9C 16 01 DE 2F 5F DF 2D 05 DF E0 30 96 E1 2F 5F E2 2F 5F E3 2D 05 E3 E4 30 96 E5 2F 5F E6 2F 5F E7 2D 05 E7 E8 30 96 E9 2F 5F 5D 16 2F 5F 5D 17 2D 05 5D 17 5D 18 30 96 5D 19 2F 5F 5D 1A 2F 5F 5D 1B 2D 05 5D 1B 5D 1C 30 96 5D 1D 2F 5F 5D 1E 2F 5F 5D 1F 2D 05 5D 1F 5D 20 30 96 5D 21 2F 5F 5D 22 2F 5F 5D 23 2D 05 5D 23 5D 24 30 96 5D 25 2F 5F 5D 26 2F 5F 5D 27 2D 05 5D 27 5D 28 30 96 5D 29 2F 5F 5D 2A 2F 5F 5D 2B 2D 05 5D 2B 5D 2C 30 96 5D 2D 2F 5F 5D 2E 2F 5F 5D 2F 2D 05 5D 2F 5D 30 30 96 5D 31 2F 5F 5D 32 2F 5F 5D 33 2D 05 5D 33 5D 34 30 96 5D 35 2F 5F 5D 36 2F 5F 5D 37 2D 05 5D 37 5D 38 30 96 5D 39 2F 5F 5D 3A 2F 5F 5D 3B 2D 05 5D 3B 5D 3C 30 96 5D 3D 2F 5F 5D 3E 2F 5F 5D 3F 2D 05 5D 3F 5D 40 30 96 5D 41 2F 5F 5D 42 2F 5F 5D 43 2D 05 5D 43 5D 44 30 96 E3 5D 45 5D 46 03 47 72 30 9C E3 5D 48 5B 2B 03 49 E7 5D 45 5D 46 03 4A 72 30 9C E7 5D 48 5B 2B 03 49 5D 17 5D 45 5D 46 03 4B 72 30 9C 5D 17 5D 48 5B 2B 03 49 5D 1B 5D 45 5D 46 03 4C 72 30 9C 5D 1B 5D 48 5B 2B 03 49 5D 1F 5D 45 5D 46 03 4D 72 30 9C 5D 1F 5D 48 5B 2B 03 49 5D 23 5D 45 5D 46 03 4E 72 30 9C 5D 23 5D 48 5B 2B 03 49 5D 27 5D 45 5D 46 03 4F 72 30 9C 5D 27 5D 48 5B 2B 03 49 5D 2B 5D 45 5D 46 03 50 72 30 9C 5D 2B 5D 48 5B 2B 03 49 5D 2F 5D 45 5D 46 03 51 72 30 9C 5D 2F 5D 48 5B 2B 03 49 5D 33 5D 45 5D 46 03 52 72 30 9C 5D 33 5D 48 5B 2B 03 49 5D 37 5D 45 5D 46 03 53 72 30 9C 5D 37 5D 48 5B 2B 03 49 5D 3B 5D 45 5D 46 03 54 72 30 9C 5D 3B 5D 48 5B 2B 03 49 5D 3F 5D 45 5D 46 03 55 72 30 9C 5D 3F 5D 48 5B 2B 03 49 5D 43 5D 45 5D 46 03 56 72 30 9C 5D 43 5D 48 5B 2B 03 49 DB 5D 57 5B 2B 03 49 DB 5D 58 30 9D C5 19 01 ) #Y(DEFAULT-TEXT #10Y(00 00 00 00 00 01 2C 00 19 01) MAKE-EMPTY-TEXT) #Y(DEFAULT-MARKS #18Y(00 00 00 00 00 01 D4 5C 36 06 BE EC 74 04 2F 1B 19 01) 12. ) #Y(DEFAULT-HEIGHT #10Y(00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-HEIGHT) #Y(DEFAULT-WIDTH #10Y(00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-WIDTH) MK-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MK-SCREEN #195Y(00 00 00 00 80 1B 00 0E 00 01 37 0E 06 61 00 00 34 00 F8 37 0D 02 CD F7 37 0C 02 CD F6 37 0B 02 CD F5 37 0A 06 61 00 01 34 00 F4 37 09 06 61 00 02 34 00 F3 37 08 06 61 00 03 34 00 F2 37 07 02 CD F1 37 06 02 CD F0 39 05 37 04 02 75 04 37 03 02 CD ED 37 02 02 CD EC 37 01 02 CE EB E5 E6 6A 55 E5 A9 E7 BA 30 54 E5 A9 E8 B9 30 54 E5 A9 E9 B8 30 54 E5 A9 5D 16 B7 30 54 E5 A9 5D 17 B6 30 54 E5 A9 5D 18 B5 30 54 E5 A9 5D 19 B4 30 54 E5 A9 5D 1A B3 30 54 E5 A9 5D 1B B2 30 54 E5 A9 5D 1C B1 30 54 E5 A9 5D 1D B0 30 54 E5 A9 5D 1E AF 30 54 E5 A9 5D 1F AE 30 54 E5 A9 5D 20 AD 30 54 15 19 0F ) NIL :TEXT :LIN :COL :SAVED-COL :MARKS :HEIGHT :WIDTH :TOP-LIN :LEFT-COL :VISIBILITY :FULL? :PHYS-LEFT-COL :PHYS-TOP-LIN :TITLE 0. #1="" SCREEN 15. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. ) SCREEN SYSTEM::DEFSTRUCT-DESCRIPTION ((TEXT 1. (SVREF (GET 'SCREEN . #2=('SYSTEM::DEFSTRUCT-DESCRIPTION)) 4.) T NIL ) (LIN 2. 0. INTEGER NIL) (COL 3. 0. INTEGER NIL) (SAVED-COL 4. 0. INTEGER NIL) (MARKS 5. (SVREF (GET 'SCREEN . #2#) 5.) T NIL) (HEIGHT 6. (SVREF (GET 'SCREEN . #2#) 6.) INTEGER NIL) (WIDTH 7. (SVREF (GET 'SCREEN . #2#) 7.) INTEGER NIL) (TOP-LIN 8. 0. INTEGER NIL) (LEFT-COL 9. 0. INTEGER NIL) (VISIBILITY 10. NIL VECTOR NIL) (FULL? 11. T T NIL) (PHYS-LEFT-COL 12. 0. INTEGER NIL) (PHYS-TOP-LIN 13. 0. INTEGER NIL) (TITLE 14. #1# STRING NIL) ) (INLINE SCREEN-P) SCREEN-P #Y(SCREEN-P #12Y(00 01 00 00 00 02 D4 AA 30 57 19 02) SCREEN) (FUNCTION SCREEN-TEXT (SCREEN) T) (INLINE SCREEN-TEXT) SCREEN-TEXT #Y(SCREEN-TEXT #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 1.) (FUNCTION SCREEN-LIN (SCREEN) INTEGER) (INLINE SCREEN-LIN) SCREEN-LIN #Y(SCREEN-LIN #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 2.) (FUNCTION SCREEN-COL (SCREEN) INTEGER) (INLINE SCREEN-COL) SCREEN-COL #Y(SCREEN-COL #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 3.) (FUNCTION SCREEN-SAVED-COL (SCREEN) INTEGER) (INLINE SCREEN-SAVED-COL) SCREEN-SAVED-COL #Y(SCREEN-SAVED-COL #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 4.) (FUNCTION SCREEN-MARKS (SCREEN) T) (INLINE SCREEN-MARKS) SCREEN-MARKS #Y(SCREEN-MARKS #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 5.) (FUNCTION SCREEN-HEIGHT (SCREEN) INTEGER) (INLINE SCREEN-HEIGHT) SCREEN-HEIGHT #Y(SCREEN-HEIGHT #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 6.) (FUNCTION SCREEN-WIDTH (SCREEN) INTEGER) (INLINE SCREEN-WIDTH) SCREEN-WIDTH #Y(SCREEN-WIDTH #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 7.) (FUNCTION SCREEN-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-TOP-LIN) SCREEN-TOP-LIN #Y(SCREEN-TOP-LIN #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 8.) (FUNCTION SCREEN-LEFT-COL (SCREEN) INTEGER) (INLINE SCREEN-LEFT-COL) SCREEN-LEFT-COL #Y(SCREEN-LEFT-COL #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 9.) (FUNCTION SCREEN-VISIBILITY (SCREEN) VECTOR) (INLINE SCREEN-VISIBILITY) SCREEN-VISIBILITY #Y(SCREEN-VISIBILITY #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 10. ) (FUNCTION SCREEN-FULL? (SCREEN) T) (INLINE SCREEN-FULL?) SCREEN-FULL? #Y(SCREEN-FULL? #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 11.) (FUNCTION SCREEN-PHYS-LEFT-COL (SCREEN) INTEGER) (INLINE SCREEN-PHYS-LEFT-COL) SCREEN-PHYS-LEFT-COL #Y(SCREEN-PHYS-LEFT-COL #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 12. ) (FUNCTION SCREEN-PHYS-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-PHYS-TOP-LIN) SCREEN-PHYS-TOP-LIN #Y(SCREEN-PHYS-TOP-LIN #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 13. ) (FUNCTION SCREEN-TITLE (SCREEN) STRING) (INLINE SCREEN-TITLE) SCREEN-TITLE #Y(SCREEN-TITLE #13Y(00 01 00 00 00 02 D4 AA D5 30 53 19 02) SCREEN 14.) SYSTEM::SETF-EXPANDER -1. #Y(SETF-SCREEN-TEXT #18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 1. ) SETF SYSTEM::%SET-DOCUMENTATION #Y(SETF-SCREEN-LIN #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 2. THE INTEGER ) #Y(SETF-SCREEN-COL #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 3. THE INTEGER ) #Y(SETF-SCREEN-SAVED-COL #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 4. THE INTEGER ) #Y(SETF-SCREEN-MARKS #18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 5. ) #Y(SETF-SCREEN-HEIGHT #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 6. THE INTEGER ) #Y(SETF-SCREEN-WIDTH #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 7. THE INTEGER ) #Y(SETF-SCREEN-TOP-LIN #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 8. THE INTEGER ) #Y(SETF-SCREEN-LEFT-COL #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 9. THE INTEGER ) #Y(SETF-SCREEN-VISIBILITY #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 10. THE VECTOR ) #Y(SETF-SCREEN-FULL? #18Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 AE 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 11. ) #Y(SETF-SCREEN-PHYS-LEFT-COL #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 12. THE INTEGER ) #Y(SETF-SCREEN-PHYS-TOP-LIN #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 13. THE INTEGER ) #Y(SETF-SCREEN-TITLE #22Y(00 02 00 00 00 03 94 54 70 D4 D5 AA D6 D7 D8 B0 73 03 59 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 14. THE STRING ) STRUCTURE SYSTEM::STRUCTURE-PRINT ) #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) MAKE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-SCREEN #270Y(00 00 00 00 80 1B 00 05 00 00 39 05 39 04 39 03 39 02 37 01 80 D3 74 01 8A 05 80 D1 D9 89 06 80 6F DA 63 07 DC 6B 02 35 36 01 6A C8 31 02 33 14 79 01 31 05 DD 89 05 80 64 DA 63 0A DF 6A E6 31 02 33 14 79 01 31 04 89 02 80 5F D9 63 07 AF 6B 01 34 DF 6A E6 79 01 31 02 89 03 80 6D D9 63 0A AE 6B 01 34 DF 6A E6 79 01 31 03 D4 AE D5 AF E0 5B D8 89 08 01 CB 14 E2 B4 E3 B5 E4 BA 67 11 E6 E7 BD 6B 02 33 36 07 74 04 69 1B 2B 10 14 19 06 14 DA 63 07 6B 02 33 31 01 32 1A FF 92 14 DA 63 0A 6B 02 33 31 01 32 1A FF 98 D9 AB 6B 01 31 63 07 D9 D9 6B 02 34 79 01 32 02 AD 63 07 D9 AD 6B 02 34 79 01 32 05 8A 03 FF 93 D9 AC 6B 01 31 63 0A D9 DD 6B 02 34 79 01 32 03 AC 63 0A D9 AE 6B 02 34 79 01 32 04 1A FF 82 89 05 FF 2F 89 04 FF 2B 89 03 FF 27 89 02 FF 23 89 01 FF 1F E6 E7 63 07 6B 02 33 36 07 74 04 69 1B 2E 14 19 06 ) :HEIGHT :WIDTH :LEFT-COL :TOP-LIN :TITLE 1. -2. GLOBAL-SCREEN-HEIGHT 0.67s0 10. GLOBAL-SCREEN-WIDTH -1. :FULL? "" :PHYS-LEFT-COL :PHYS-TOP-LIN :TEXT MAKE-EMPTY-TEXT :VISIBILITY 2. MK-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) RESIZE-ARRAY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(RESIZE-ARRAY #40Y(00 02 00 01 00 09 37 01 02 BE EB AB D5 69 06 AB 87 01 30 0E AB AB AB 6B 02 33 36 06 9C EC 2F 1C 19 04 AB AB 2F 17 19 04 ) 10. 0. ) ) #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SHRINK-ARRAY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHRINK-ARRAY #46Y(00 02 00 00 00 03 AA 69 16 A8 AB 6B 01 34 AC A9 2F 17 AC 69 04 02 21 03 00 19 05 A8 1A 08 AD A9 5B 31 01 02 7C 00 A8 AB 86 28 73 00 19 06 ) ) ) #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) DISPLAY-BLANKS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DISPLAY-BLANKS #21Y(00 02 00 00 00 03 63 00 63 01 36 01 AC AE 6B 01 34 2F 8E 19 03) BLANKS *WINDOW* ) ) #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) DISPLAY-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DISPLAY-LINE #171Y(00 07 00 00 00 00 AF 6A 63 AD 88 01 2E 80 71 8A 02 07 D5 63 02 2F 8D 7C 04 AB 8A 02 02 7D 00 B0 6A 63 A9 6B 01 32 8A 08 80 5D 8A 07 80 59 AF AF 87 01 2F 80 52 B0 A9 87 01 30 80 4B B0 AF 88 01 2F 07 A8 B0 87 01 2F 80 44 B0 AF 79 01 31 08 AF A9 79 01 32 07 B1 63 02 B0 B3 2F 8E 63 02 2D 03 B1 63 02 B2 B2 2F 8E 63 02 2D 04 B1 63 02 9B 14 AB 2F 8E A8 B2 6A 63 85 28 24 89 03 27 00 19 0A AC AC 2E 00 00 19 08 B1 63 02 9A 1A 62 63 02 2D 03 B1 63 02 B0 AB 2F 8E 63 02 2D 04 1A 55 A8 AE 2E 00 19 0A D9 63 02 2F 8D 19 0A ) DISPLAY-BLANKS #\⇦ *WINDOW* SYSTEM::HIGHLIGHT-ON SYSTEM::HIGHLIGHT-OFF #\⇨ ) ) #Y(#:TOP-LEVEL-FORM-33 #19Y(00 00 00 00 00 01 D4 2D 01 D4 5B 65 02 01 30 96 BE 19 01) SHOW-SCREEN-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHOW-SCREEN-LINE #400Y(00 04 00 00 00 05 D5 AD D6 6A 53 D5 AE D7 6A 53 D5 AF D8 6A 53 D5 B0 D9 6A 53 D5 B1 DA 85 53 80 C8 AE DC 79 01 31 06 AD AB 30 AB 14 79 01 32 05 AD AF 88 01 2E 81 56 D5 B1 DA 85 53 80 B6 DC B0 AD 88 02 2F 81 47 63 09 A9 B1 6B 02 33 AB B1 6B 02 33 2B 03 0A AF 23 08 80 AF AF AC 85 28 80 D3 D5 B1 E6 6A 53 B0 D5 B3 E7 6A 53 6B 02 33 D5 B3 E8 6A 53 A9 AB 6A 63 87 01 2D 80 D8 D3 14 D5 B5 5D 16 6A 53 A8 DB 6B 01 01 A9 E6 6B 01 01 B5 24 08 08 5D 17 63 09 2F 8D C5 F7 AB 8A 02 0F 70 AF 85 28 80 B8 8B 02 AF 87 01 2D 80 B5 00 14 8A 02 0F 70 B0 85 28 80 AE 8B 02 B0 87 01 2E 80 AB 00 14 AF B9 6B 02 33 B0 B9 B7 6B 01 32 6B 02 33 B1 86 A7 03 BA C5 52 14 BA B8 6B 01 30 2B 07 18 B4 8D 0A 85 28 80 8A 00 19 10 AE DB 79 01 31 06 AD 95 1A FF 37 DC B0 AD 88 02 2D 80 91 1A FF 47 5B E1 AE E2 AD 2B 05 0F 1A 15 D5 B1 DF 6A 53 E0 69 4E A9 6A 63 AD 87 01 2D 66 A9 DB AE 30 61 14 E0 69 4E 6B 03 13 A8 63 09 8D 0A 8D 0A 2F 8E 19 0B 95 1A 13 AE 24 08 07 E4 63 09 2F 8D C5 F0 DB AE 8D 04 85 28 6B 98 14 B0 6B 01 34 1A 32 E4 63 09 2F 8D 19 09 AA AA 31 01 01 1A FF 21 94 54 1A FF 4C C5 1A FF 48 94 54 1A FF 56 AD 30 63 1A FF 50 5D 17 63 09 2F 8D 19 10 E5 63 09 2F 8D 7C 01 A9 A9 88 01 30 73 16 02 AD 8D 03 85 28 40 00 19 09 ) NIL SCREEN 6. 7. 12. 13. 11. 0. -1. *WINDOW* SYSTEM::SET-WINDOW-CURSOR-POSITION 14. #\# "~V,,0,V:@<~A~>" #\= FORMAT #\+ #\- 1. 8. 9. "" 5. #\| DISPLAY-LINE ) ) #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SHOW-SCREEN-LINE-V SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHOW-SCREEN-LINE-V #100Y(00 04 00 00 00 05 D4 AD D5 6A 53 D4 AE D6 6A 53 D4 AF D7 6A 53 AD D8 79 01 31 05 AC AA 79 01 32 04 AD AD 88 01 2D 07 D9 AF AC 87 02 2D 03 00 19 08 A8 8D 07 6B 01 01 5B 1A 23 7E 01 00 71 B0 88 01 2E 18 8B 00 AF 88 01 2D 11 B1 B1 B1 8B 03 6B 01 31 B1 8C 04 6B 01 32 2B 04 06 7A 01 A9 84 B6 59 00 19 0A ) SCREEN 6. 7. 10. 0. -1. SHOW-SCREEN-LINE ) ) #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) DISPLAY-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DISPLAY-SCREEN #45Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 06 D5 AC D6 78 53 01 D5 AC D7 6A 53 AB 1A 09 AD A9 D4 AC 2B 04 04 7C 00 A8 AC 86 28 72 02 19 06 ) 0. SCREEN 6. 7. SHOW-SCREEN-LINE-V ) ) #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UPDATE-VISIBILITY-LIST-1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-VISIBILITY-LIST-1 #113Y(00 03 00 00 00 04 00 29 02 76 03 00 00 76 02 00 01 A8 65 00 01 AD 36 05 78 6E 04 A8 65 01 01 AD 36 01 69 DD A9 65 02 01 AE 36 01 69 DD 8A 01 07 8A 00 04 A9 93 21 11 89 01 2C 8A 00 06 70 60 03 01 2F D1 16 02 96 19 05 60 02 01 8B 02 8C 00 60 05 00 AA A9 2F D3 93 16 03 72 A8 95 54 72 AB A9 2F D3 16 02 1A 5D 70 60 03 00 2F D3 8A 00 54 1A 4C ) #Y(UPDATE-VISIBILITY-LIST-1-1 #28Y(00 01 00 00 00 02 61 00 00 8B 02 31 01 2F 1E 0A 8C 01 61 00 01 31 01 2F 19 02 19 02 ) NIL ) #Y(UPDATE-VISIBILITY-LIST-1-2 #18Y(00 01 00 00 00 02 8B 01 61 00 00 8C 03 31 02 2D 19 02) NIL ) #Y(UPDATE-VISIBILITY-LIST-1-3 #18Y(00 01 00 00 00 02 8B 01 61 00 01 8C 03 31 02 2D 19 02) NIL ) ) ) #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UPDATE-VISIBILITY-LIST-2 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-VISIBILITY-LIST-2 #94Y(00 03 00 00 00 04 5B AC 8A 00 14 AB 93 53 70 87 01 2F 0C A8 8C 01 93 ED 92 EC 16 02 89 00 6C 8A 00 21 AB 93 53 70 87 01 2D 19 8B 00 AD 2F D1 8A 01 19 93 53 71 AD 85 28 16 A9 93 14 2F D3 16 02 95 19 04 AC 96 72 7B 00 89 01 67 92 EF 1A 6F 92 53 71 8B 02 A9 2F D3 16 01 A9 93 54 1A 5D ) ) ) #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UPDATE-VISIBILITY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-VISIBILITY #118Y(00 05 00 00 00 06 D4 AE D5 6A 53 D4 AF D6 6A 53 D4 B0 D7 6A 53 D8 B0 AC 6B 01 34 6B 01 31 D4 B2 D9 6A 53 6A AB B0 AD 6B 01 34 6B 01 32 D8 B0 AD 6B 01 34 6B 01 31 D4 B4 DA 6A 53 6A AB B0 AE 6B 01 34 6B 01 32 AA AC 88 01 2E 06 A8 AA 87 01 2E 03 00 19 0D 8D 03 8D 03 1A 14 AE AA 6B 01 01 AC AC 66 03 07 AF AB AA 31 01 02 16 01 7C 01 A9 A9 86 28 67 00 19 0F ) SCREEN 13. 12. 10. -1. 6. 7. UPDATE-VISIBILITY-LIST-1 ) ) #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SHOW-NEWLY-VISIBLE-LINE-PARTS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHOW-NEWLY-VISIBLE-LINE-PARTS #161Y(00 04 00 00 00 05 89 04 80 4C 00 19 05 AF B5 AE B0 31 02 33 1A 80 83 8D 02 AC 8D 04 6B 01 01 DA AC 6B 01 31 B0 AC 6B 01 32 66 03 08 AD AA AA 31 01 02 16 02 A9 DA 88 01 2D 07 AF B5 B5 8E 07 26 11 B0 AB AB AB 2B 04 09 A8 AE 87 01 2E FF BE 00 19 0E 8A 04 FF B4 8B 04 8C 05 D4 AA D5 6A 53 D4 AB D6 6A 53 6A AB D4 AC D7 6A 53 D4 AD D8 6A 53 B1 D4 AF D9 6A 53 6B 01 34 B1 AB 6B 01 34 B1 AC 6B 01 34 DA AB B0 88 02 2F 0D DB A9 88 01 2F 07 A9 AE 87 01 2D FF 80 AF B5 9F 14 B5 27 04 12 FF B1 ) SCREEN 6. 7. 12. 10. 13. -1. 0. UPDATE-VISIBILITY-LIST-2 SHOW-SCREEN-LINE ) ) #Y(#:TOP-LEVEL-FORM-40 #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01) (SPECIAL *SCREENS*) *SCREENS* ) #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SET-CURSOR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-CURSOR #77Y(00 02 00 01 00 09 38 01 14 37 02 06 D4 AD D5 78 53 02 D4 AD D6 6A 53 A8 6A 63 D7 AE 8E 02 6B 01 32 79 01 31 05 D7 AD AB B0 6B 01 01 6A 63 6B 01 32 79 01 31 04 D4 AF D8 B0 30 54 D4 AF D9 AF 30 54 8A 02 06 D4 AF D5 AF 30 54 02 19 07 ) SCREEN 4. 1. 0. 2. 3. ) ) #Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SCROLL-VERTICAL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCROLL-VERTICAL #184Y(00 02 00 01 00 09 39 01 D4 AC D5 6A 53 A8 6A 63 D4 AE D6 6A 53 8A 04 0C AE D4 B0 D7 6A 53 AF 6B 02 33 2E 04 A8 6B 00 34 AE AB D5 AC 6B 02 34 6B 01 32 79 01 31 05 A8 AE 6B 02 33 D4 B0 D6 AB 30 54 16 01 AD 23 05 2A AD 6A B3 DA 87 01 2E 25 D4 AF DB 86 53 1F 0E 08 1C 1B AE 0E 08 53 22 15 AD 85 A7 16 63 0A D9 D9 2B 03 0B D9 AE 6B 00 34 1A 34 98 19 07 AE 2D 09 19 07 63 0A D9 D9 2B 03 0B D9 1A 06 63 0A 2D 0C 7C 00 A8 AF 88 01 30 74 16 01 AE D4 B0 E1 6A 53 AF 6B 01 34 2E 09 19 07 63 0A 2D 0E 7C 01 A9 A9 88 01 30 74 16 02 AE D9 AF 6B 00 34 2B 03 09 19 07 ) SCREEN 1. 8. 2. SET-CURSOR 0. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW* SYSTEM::SET-WINDOW-CURSOR-POSITION SYSTEM::DELETE-WINDOW-LINE 6. SYSTEM::INSERT-WINDOW-LINE ) ) #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SCROLL-HORIZONTAL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCROLL-HORIZONTAL #49Y(00 02 00 00 00 03 D4 AB D5 6A 53 A8 AB 6B 02 33 86 A8 05 A8 79 00 34 02 AA 23 02 12 A8 AB 6B 02 33 D4 AD D5 AB 30 54 16 01 AB 2D 03 19 04 95 19 04 ) SCREEN 9. 0. DISPLAY-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SET-CURSOR-VISIBLE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-CURSOR-VISIBLE #301Y(00 01 00 01 00 08 39 01 D4 AB D5 6A 53 D4 AC D6 6A 53 D4 AD D7 6A 53 D4 AE D8 6A 53 D4 AF D9 6A 53 D4 B0 DA 6A 53 AA 23 07 33 AA 30 AB 14 AD DC AD AC 6B 03 33 88 02 2F 80 71 AD AC 87 01 2D 26 AD AC AB 6B 02 33 88 01 30 80 A0 B0 AE DD AE 89 0B 21 97 14 31 03 34 14 2E 0A 1A 80 8E C5 1A 4D AC DD 30 E6 1A 07 B0 AE AD 89 0A 74 C5 14 31 02 34 1A 64 AD DD 30 E6 1A 5A AB DD 30 E6 1A 1A E0 AC 31 02 33 1A 13 B0 AD AC 89 0A 6D AB DF 87 01 2D 67 AF AE 87 01 2F 67 CB 14 6B 02 34 2E 0E 1A 80 49 C5 1A 28 A9 DD 30 E6 1A 1E AB AE DD AE AD 6B 03 33 87 02 2F 4F AC 8E 01 87 01 2D 64 AC 89 08 63 A9 DF 87 01 2D 5D CB 14 31 01 34 14 DB AF AC DD 6A E6 6B 01 34 6B 01 31 D4 B3 D8 AC 30 54 D4 B3 D7 AB 30 54 B2 2D 0F 16 02 16 06 0E 10 1C 39 AA 0E 10 53 22 33 63 11 D4 AC D5 6A 53 D4 AD D7 6A 53 6B 01 34 D4 AD E6 6A 53 6B 02 33 D4 AD D6 6A 53 D4 AE D8 6A 53 6B 01 34 D4 AE E7 6A 53 6B 02 33 2B 03 14 63 11 2D 15 02 19 03 ) SCREEN 2. 3. 8. 9. 6. 7. 0. -2. -1. SCROLL-VERTICAL 40. -20. 20. SCROLL-HORIZONTAL DISPLAY-SCREEN *SCREENS* *WINDOW* 13. 12. SYSTEM::SET-WINDOW-CURSOR-POSITION SYSTEM::WINDOW-CURSOR-ON ) ) #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) REFRESH-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(REFRESH-LINE #36Y(00 03 00 00 00 04 AB AB D4 AE D5 6A 53 6B 01 34 AB D4 AF D6 6A 53 6B 01 34 D4 AF D7 6A 53 2B 04 04 02 19 04 ) SCREEN 8. 9. 7. SHOW-SCREEN-LINE-V ) ) #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) REFRESH-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(REFRESH-SCREEN #259Y(00 03 00 01 00 0A 37 01 02 BE EB D5 AD D6 6A 53 D5 AE D7 6A 53 A9 A9 6B 02 33 AE 87 01 2F 22 AC AA 87 01 2F 1F AB 6A B3 D8 87 01 2E 11 D5 AF D9 86 53 0B 0E 06 1C 07 AE 0E 06 53 21 80 8B AE 2D 07 02 19 07 A9 AC 6B 02 33 D5 B0 D6 AB 30 54 16 01 1A 6E 63 08 A9 D4 2B 03 09 D4 AD 6B 00 34 1A 06 63 08 2D 0A 7C 01 A9 A9 88 01 30 74 16 03 1A 80 6E AC AA AD 6B 01 34 79 01 31 04 14 AC 6B 02 33 AA 6B 01 34 A8 AD 6B 01 34 AA 87 01 2D 44 16 01 1A 80 4C AF 93 1A 28 A8 AD 6B 02 33 AA 87 01 30 72 63 08 A9 D4 2B 03 09 D4 1A 06 63 08 2D 0B 7C 00 A8 AE 88 01 30 74 16 01 AF AA AE 31 01 34 14 AB 2B 03 07 16 01 1A 17 AB 85 A8 FF A4 AB 86 A7 0E AC AA 6B 01 34 A8 AA 87 01 2D FF BA 16 01 D4 AE AB 6B 01 34 6B 01 31 AD AB 6B 01 34 AA 6B 01 32 A9 A9 88 01 2D 06 B0 AA AA 2B 03 07 16 04 02 19 05 ) 0. SCREEN 8. 6. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW* SYSTEM::SET-WINDOW-CURSOR-POSITION SYSTEM::INSERT-WINDOW-LINE SYSTEM::DELETE-WINDOW-LINE ) ) #Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) HIDE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(HIDE-SCREEN #117Y(00 01 00 00 00 02 D4 D5 AB D6 6A 53 6B 02 33 D5 AB D7 6A 53 D5 AC D8 6A 53 D5 AD D9 6A 53 AD 63 06 DB 36 02 69 DC 8A 00 80 46 DC 8E 04 1A 2F AB AA 6B 01 01 5B 1A 17 7E 01 00 8C 04 AB B0 8B 03 6B 02 33 B1 8C 04 6B 02 33 2B 04 09 7A 01 A9 84 B6 65 16 02 AB AA 5B 31 01 02 7C 01 7C 00 A9 AF 86 28 4C 16 02 AE 63 06 36 07 C5 EC 30 6D 0F 06 0E 06 53 19 07 ) 2. SCREEN 6. 13. 12. 10. *SCREENS* #.#'EQ 0. SHOW-NEWLY-VISIBLE-LINE-PARTS ) ) #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) ACTIVATE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ACTIVATE-SCREEN #220Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 D4 AC D7 6A 53 D4 AD D8 6A 53 A9 AC 6B 02 33 A9 AC 6B 02 33 D4 B0 D9 6A 53 DA AE 0E 07 1C 07 B2 0E 07 53 21 80 A1 D4 B3 DC 85 53 0C 7D 06 7C 04 7D 05 7C 03 7D 01 7C 00 63 07 8A 00 13 8B 00 9E 21 0E 8B 00 B0 AF B1 B0 2B 05 09 7A 00 89 00 6D 16 01 B2 B3 63 07 36 07 C8 EC 30 6D 55 0F 07 D4 B3 DC 85 53 09 DA E0 B2 6B 02 33 1A 80 51 DA 1A 24 AA 94 72 73 01 AC 8D 02 6B 01 01 A9 85 29 11 8D 01 AD A9 AB 31 01 02 16 01 B4 AA AD AD 2B 04 0B 16 01 7C 00 A8 B2 88 01 30 56 16 01 1A 28 AB 95 72 73 01 AD AB 6B 01 01 A9 85 29 0E AD AB AA 31 01 02 B5 8E 03 AE AE 2B 04 0B 16 01 7C 01 A9 A9 88 01 30 5A 16 02 16 09 02 19 02 ) SCREEN 6. 7. 13. 12. 10. 0. *SCREENS* 11. UPDATE-VISIBILITY #.#'EQ SHOW-SCREEN-LINE 2. ) ) #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UPDATE-MARKS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-MARKS #160Y(00 05 00 00 00 06 00 29 04 76 05 00 00 76 04 00 01 76 03 00 02 76 02 00 03 A8 65 00 01 D5 B0 D6 6A 53 D5 B1 D7 6A 53 A9 60 04 00 86 28 07 A8 60 04 01 85 28 22 A9 A9 96 32 3E 02 D5 B4 D6 AC 30 54 D5 B4 D7 AB 30 54 16 02 16 02 D5 B0 D9 6A 53 DA A9 6A 63 1A 80 40 60 03 02 D5 B3 D6 AB 30 54 16 01 60 03 03 D5 B3 D7 AB 30 54 16 01 60 03 03 D5 B3 D8 AB 30 54 16 01 1A 4F AA AA 6B 01 01 8A 00 11 70 8C 01 98 32 3E 02 AA AA 2F D1 AA A9 2F D3 16 02 16 01 7C 01 A9 A9 88 01 30 5D 00 19 0B ) #Y(UPDATE-MARKS-NEW-LIN-COL #200Y(00 02 00 00 00 03 61 00 00 61 00 02 85 28 37 61 00 00 61 00 02 87 01 2E 38 AA 61 00 00 85 28 80 81 61 00 00 AB 88 01 2D 80 96 AA 61 00 02 61 00 00 6B 01 34 31 02 33 1A 80 87 61 00 01 AA 88 01 2D 16 94 1A 80 67 AA 61 00 00 85 28 6D 94 1A 80 70 AA 61 00 02 86 28 2C AA AA 61 00 03 31 01 32 1A 80 60 61 00 02 AA 61 00 03 61 00 01 6B 01 34 6B 02 33 61 00 03 31 01 31 1A 80 47 61 00 02 07 00 03 1A 3F AA 61 00 00 85 28 58 61 00 02 AB 61 00 00 87 02 2D 66 61 00 00 AB 87 01 2D FF 8B 94 1A 1F A9 61 00 01 88 01 2E 13 07 00 02 14 AA 61 00 03 61 00 01 6B 01 34 31 02 33 1A 06 94 1A 01 94 14 94 14 3C 02 19 03 ) NIL ) SCREEN 2. 3. 4. 5. 0. ) ) #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SCROLL-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCROLL-SCREEN #15Y(00 02 00 00 00 03 AA AA 5C 2B 03 00 02 19 03) SCROLL-VERTICAL ) ) #Y(#:TOP-LEVEL-FORM-51 #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01) (SPECIAL *UNDO*) *UNDO* ) #Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UNDO1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO1 #9Y(00 01 00 00 00 02 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UNDO2 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO2 #9Y(00 01 00 00 00 02 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UNDO3 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO3 #9Y(00 01 00 00 00 02 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-55 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-UP SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor up" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-UP #28Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 30 A7 1E 0A AA 2D 02 AA 8E 01 2E 03 19 03 19 03 ) SCREEN 2. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-56 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor down" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-DOWN #38Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 D4 AC D6 6A 53 6A 63 6A AC 31 01 2D 1E 0A AA 2D 03 AA 8D 01 2E 04 19 03 19 03 ) SCREEN 2. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-57 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-LEFT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor left" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-LEFT #56Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 A8 85 A7 1D A9 86 A7 1D 7D 01 D4 AC D7 6A 53 AA 6B 01 01 78 63 00 AB 2D 04 AB AA AA 2B 03 05 19 04 7D 00 1A 71 00 19 04 ) SCREEN 2. 3. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-58 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor right" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-RIGHT #65Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 D4 AC D7 6A 53 A8 AB AB 6B 01 01 6A 63 87 01 2D 19 A9 AB 6A 63 6A AC 88 01 2D 13 7C 01 C2 EA AC 2D 05 AC AA AA 2B 03 06 19 05 7C 00 1A 71 00 19 05 ) SCREEN 1. 2. 3. 0. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-59 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-TO-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to start of line" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-TO-START-OF-LINE #22Y(00 01 00 00 00 02 D4 AA D5 6A 53 AA 2D 02 AA A9 D7 2B 03 04 19 03) SCREEN 2. UNDO3 0. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-60 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-TO-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to end of line" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-TO-END-OF-LINE #32Y(00 01 00 00 00 02 D4 AA D5 6A 53 AA 2D 02 AA A9 D4 AD D7 6A 53 AB 6B 01 01 6A 63 2B 03 04 19 03 ) SCREEN 2. UNDO3 1. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-61 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-TO-START-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to start of text" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-TO-START-OF-TEXT #17Y(00 01 00 00 00 02 A9 2D 00 A9 D5 D5 2B 03 02 19 02) UNDO3 0. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-62 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-TO-END-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to end of text" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-TO-END-OF-TEXT #33Y(00 01 00 00 00 02 A9 2D 00 D5 AA D6 6A 53 A8 6A 63 6A AC AB A9 AB AB 6B 01 01 6A 63 2B 03 03 19 04 ) UNDO3 SCREEN 1. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-63 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) PAGE-UP SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "page up" SYSTEM::%SET-DOCUMENTATION #Y(PAGE-UP #23Y(00 01 00 00 00 02 A9 2D 00 A9 D5 D6 AC D7 6A 53 6B 01 34 2E 04 19 02 ) UNDO3 1. SCREEN 6. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-64 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) PAGE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "page down" SYSTEM::%SET-DOCUMENTATION #Y(PAGE-DOWN #21Y(00 01 00 00 00 02 A9 2D 00 A9 D5 AB D6 6A 53 6A AC 2E 03 19 02) UNDO3 SCREEN 6. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-65 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) LINE-UP SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "line up" SYSTEM::%SET-DOCUMENTATION #Y(LINE-UP #15Y(00 01 00 00 00 02 A9 2D 00 A9 D5 2E 02 19 02) UNDO3 -1. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-66 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) LINE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "line down" SYSTEM::%SET-DOCUMENTATION #Y(LINE-DOWN #15Y(00 01 00 00 00 02 A9 2D 00 A9 D5 2E 02 19 02) UNDO3 1. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SET-MARK-FN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-MARK-FN #29Y(00 01 00 00 00 02 00 29 01 D4 AB 31 02 33 0B 00 00 92 29 01 A8 2A 01 01 0B 00 00 19 04 ) 2. #Y(SET-MARK-FN-SET-MARK #110Y(00 01 00 02 00 0D 28 29 01 76 04 00 00 37 03 0B 60 00 00 D5 A9 D6 30 53 16 01 ED 37 02 0B 60 00 00 D5 A9 D7 30 53 16 01 EC 60 00 00 D5 A9 D8 78 53 00 61 01 00 6B 01 01 89 00 2D 93 29 02 93 53 0B 00 00 93 54 0B 00 01 A8 2A 06 01 16 01 EA 2D 07 60 00 00 D5 A9 D8 78 53 00 61 01 00 AD 97 72 AA AA AA 31 01 02 19 08 A9 2A 05 01 1A 60 ) NIL SCREEN 2. 3. 5. #Y(SET-MARK-FN-SET-MARK-1 #26Y(00 00 00 00 00 01 61 00 00 D5 A9 D6 78 53 00 61 02 00 A9 A9 5B 31 01 02 19 03 ) NIL SCREEN 5. ) #Y(SET-MARK-FN-SET-MARK-2 #21Y(00 00 00 00 00 01 61 01 00 61 00 00 61 00 01 07 02 00 32 19 01 ) NIL ) UNDO2 ) ) ) #Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SET-MARK-DOC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-MARK-DOC #14Y(00 01 00 00 00 02 5B D4 AB 2B 03 01 19 02) "set mark ~D" FORMAT ) ) #Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) CURSOR-TO-MARK-FN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-MARK-FN #23Y(00 01 00 00 00 02 00 29 01 D4 AB 31 02 33 0B 00 00 A8 2A 01 01 19 03 ) 2. #Y(CURSOR-TO-MARK-FN-1 #35Y(00 01 00 00 00 02 A9 2D 01 D6 AA D7 6A 53 61 00 00 6B 01 01 92 1E 0A AA 8B 01 8C 02 2B 03 04 19 03 19 03 ) NIL UNDO3 SCREEN 5. SET-CURSOR ) ) ) #Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) CURSOR-TO-MARK-DOC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-MARK-DOC #14Y(00 01 00 00 00 02 5B D4 AB 2B 03 01 19 02) "cursor to mark ~D" FORMAT ) ) #Y(#:TOP-LEVEL-FORM-71 #28Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 69 4E 30 97 BE 19 01 ) NEWLINE-AS-STRING "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT NEWLINE-AS-STRING (STRING #\Newline)) WARN #\Newline ) #Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) REGION-TO-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(REGION-TO-LINELIST #73Y(00 05 00 00 00 06 D4 AE D5 6A 53 5B AE AD 85 28 10 A9 AF 6B 01 01 AE 36 01 6A 61 7B 00 8D 06 1A 13 A9 AF 6B 01 01 98 1A 18 AA A9 6B 01 01 6A 62 7B 01 7C 00 A8 AE 86 28 70 16 01 A9 AD 6B 01 01 C0 14 AD 6A 61 93 55 19 08 ) SCREEN 1. 0. ) ) #Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) STRING-TO-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STRING-TO-LINELIST #85Y(00 01 00 00 00 02 D4 AA 36 06 6A 7B 8A 00 0D A8 36 05 BF ED B0 D6 69 1B 73 01 1A 16 AA 59 01 19 03 AA A9 6B 01 34 36 05 BF ED B2 AF 69 1B 7B 01 16 01 8D 01 D4 AD 36 06 9A EE 78 7B 02 1B 62 AC 6A 63 A9 6B 01 34 36 05 BF ED B2 AF 69 1B 7B 01 16 01 15 19 03 ) #\Newline STRING-CHAR 0. ) ) #Y(#:TOP-LEVEL-FORM-74 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) DELETE-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete character at cursor" SYSTEM::%SET-DOCUMENTATION #Y(DELETE-CHAR #115Y(00 01 00 00 00 02 00 29 01 76 02 00 00 14 D4 A9 D5 78 53 00 60 01 00 D4 A9 D6 78 53 00 60 02 00 D4 A9 D7 78 53 00 AA AA 6B 01 01 A8 6A 63 AA A9 85 28 3D 97 29 01 AA AC 31 01 01 0B 00 00 A8 2A 04 01 EA 2D 05 A9 AA AC 36 03 B0 78 AB 01 30 69 A9 69 16 6A AC AA A9 2F 17 16 01 60 05 00 AC 8D 04 AE AE 2B 05 06 60 05 00 AC AC 2B 03 07 19 08 00 19 08 ) SCREEN 1. 2. 3. #Y(DELETE-CHAR-1 #21Y(00 00 00 00 00 01 61 01 00 61 00 00 2E 01 61 01 00 2D 02 19 01) NIL INSERT-CHAR CURSOR-LEFT ) UNDO2 UPDATE-MARKS REFRESH-LINE ) ) #Y(#:TOP-LEVEL-FORM-75 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) COMBINE-LINES SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "combine two lines" SYSTEM::%SET-DOCUMENTATION #Y(COMBINE-LINES #158Y(00 01 00 00 00 02 00 29 01 76 02 00 00 92 29 02 60 01 00 D4 A9 D5 78 53 00 60 02 00 D4 A9 D6 30 53 16 01 0B 01 00 14 6A AB A9 60 03 00 6B 01 01 A8 30 63 0B 03 01 A9 AB 6A 63 85 28 80 5D 95 29 01 60 05 00 D4 A9 D7 30 53 16 01 0B 00 00 A8 2A 04 01 EA 2D 05 AA AA 6B 01 01 A9 60 05 01 AA 6A 63 6B 02 33 2E 06 A9 A9 60 06 01 36 03 30 69 16 01 AA AB AB 36 03 AF 78 AB 01 30 69 AA D5 2E 07 60 04 00 AA DC 60 06 00 60 07 01 2B 05 09 60 04 00 60 04 00 AB D5 2B 04 0A 19 07 00 19 07 ) SCREEN 1. 2. 3. #Y(COMBINE-LINES-1 #37Y(00 00 00 00 00 01 61 02 00 61 01 00 61 01 01 2B 03 01 61 02 00 2D 02 61 02 00 61 01 00 61 00 00 2B 03 01 19 01 ) NIL SET-CURSOR INSERT-LINE ) UNDO2 RESIZE-ARRAY SHRINK-ARRAY 0. UPDATE-MARKS REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-76 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) DELETE-CHAR-1 SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete character at cursor, across lines" SYSTEM::%SET-DOCUMENTATION #Y(DELETE-CHAR-1 #18Y(00 01 00 00 00 02 A9 2D 00 1D 05 A9 2D 01 19 02 19 02) DELETE-CHAR COMBINE-LINES ) ) #Y(#:TOP-LEVEL-FORM-77 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) BACKSPACE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete character before cursor" SYSTEM::%SET-DOCUMENTATION #Y(BACKSPACE #27Y(00 01 00 00 00 02 D4 AA D5 6A 53 30 A7 1E 0A A9 2D 02 1E 05 A9 2D 03 19 02 19 02 ) SCREEN 3. CURSOR-LEFT DELETE-CHAR ) ) #Y(#:TOP-LEVEL-FORM-78 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) BACKSPACE-1 SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete character before cursor, across lines" SYSTEM::%SET-DOCUMENTATION #Y(BACKSPACE-1 #18Y(00 01 00 00 00 02 A9 2D 00 1E 05 A9 2D 01 19 02 19 02) CURSOR-LEFT DELETE-CHAR-1 ) ) #Y(#:TOP-LEVEL-FORM-79 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) DELETE-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DELETE-REGION #237Y(00 05 00 00 00 06 00 29 03 76 06 00 00 76 05 00 01 76 04 00 02 60 00 00 D4 A9 D5 78 53 00 60 01 00 2D 02 93 29 01 60 02 00 60 03 01 60 04 02 B0 B0 2B 05 03 0B 00 00 A8 2A 04 01 EA 2D 05 60 01 01 AD 85 28 80 66 A8 60 02 01 6B 01 01 A9 AE 6B 01 01 60 03 02 A9 6A 63 AF 6B 01 34 6B 02 33 AA A9 2E 08 AA AA 60 06 02 36 03 9E EB 30 69 AB AC 60 06 01 6A AB 36 03 B5 78 AB 01 30 69 AB B0 60 06 01 6B 01 34 2E 09 60 04 00 B0 B0 60 07 01 60 08 02 2B 05 06 60 04 00 60 05 01 60 06 01 6A AB B2 60 08 01 6B 01 34 2B 04 0A 19 0B A8 60 02 01 6B 01 01 A8 A9 60 04 02 36 03 9C EB 30 69 A8 69 16 AD 60 04 02 6B 01 34 6B 01 34 A9 A9 2F 17 16 01 60 02 00 AE AE 60 05 01 60 06 02 2B 05 06 60 02 00 60 03 01 60 04 02 2B 03 07 19 09 ) SCREEN 1. UNDO3 REGION-TO-LINELIST #Y(DELETE-REGION-1 #28Y(00 00 00 00 00 01 61 01 00 61 01 01 61 01 02 2B 03 01 61 01 00 61 00 00 2E 02 19 01 ) NIL SET-CURSOR INSERT-LINELIST ) UNDO2 UPDATE-MARKS REFRESH-LINE RESIZE-ARRAY SHRINK-ARRAY REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-80 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete line" SYSTEM::%SET-DOCUMENTATION #Y(DELETE-LINE #50Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 A8 AA 6A 63 6A AC 85 28 0C AB A9 D7 8D 03 C1 14 2B 05 04 19 04 AB A9 D7 AB AD AD 6B 01 01 30 63 1A 6D ) SCREEN 1. 2. 0. DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-81 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CLEAR-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete part of line left to the cursor" SYSTEM::%SET-DOCUMENTATION #Y(CLEAR-START-OF-LINE #26Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 AB AA D7 AC AC 2B 05 04 19 04 ) SCREEN 2. 3. 0. DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-82 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete up to end of line" SYSTEM::%SET-DOCUMENTATION #Y(CLEAR-END-OF-LINE #37Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 D4 AC D7 6A 53 AC AA AA AC AE AE 6B 01 01 6A 63 2B 05 04 19 05 ) SCREEN 1. 2. 3. DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-83 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) INSERT-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-CHAR #94Y(00 02 00 00 00 03 00 29 01 76 03 00 00 14 D4 A9 D5 78 53 00 60 01 00 D4 A9 D6 78 53 00 60 02 00 D4 A9 D7 78 53 00 AA AA 6B 01 01 A8 6A 63 AD 65 04 01 2D 05 A9 8D 01 2E 06 A9 AA 8D 04 36 03 9A EB 30 69 A9 AB B1 31 01 02 60 05 00 AC AC AE 8D 06 2B 05 07 60 05 00 AC AC 2B 03 08 19 09 ) SCREEN 1. 2. 3. #Y(INSERT-CHAR-1 #13Y(00 00 00 00 00 01 61 00 00 2D 01 19 01) NIL BACKSPACE ) UNDO2 RESIZE-ARRAY UPDATE-MARKS REFRESH-LINE ) ) #Y(#:TOP-LEVEL-FORM-84 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "begin new line at cursor" SYSTEM::%SET-DOCUMENTATION #Y(INSERT-LINE #120Y(00 01 00 00 00 02 00 29 01 76 02 00 00 14 D4 A9 D5 78 53 00 60 01 00 D4 A9 D6 78 53 00 8D 00 60 03 00 D4 A9 D7 78 53 00 AB AB 6B 01 01 AD 65 04 01 2D 05 A8 6A 63 AA 6B 01 34 67 06 A8 AA 36 04 9A EB 30 69 A9 AB 2F 17 AD AE 6A 63 6A AB 2E 07 AD AE 8D 05 36 03 9B EB 30 69 AD AC AA 31 01 02 16 01 60 05 00 AC AB AD DC 2B 05 09 60 05 00 AC 8D 04 DE 2B 04 0B 19 08 ) SCREEN 1. 2. 3. #Y(INSERT-LINE-1 #13Y(00 00 00 00 00 01 61 00 00 2D 01 19 01) NIL BACKSPACE-1 ) UNDO2 GET-NEW-LINE RESIZE-ARRAY 0. UPDATE-MARKS -1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) INSERT-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-LINELIST #369Y(00 02 00 00 00 03 00 29 01 76 03 00 00 92 29 02 60 01 00 D4 A9 D5 78 53 00 60 02 00 D4 A9 D6 30 53 16 01 0B 01 00 60 02 00 D4 A9 D7 30 53 16 01 0B 01 01 8A 04 80 76 96 54 1C 80 74 93 29 01 AD 6A 63 6A AC 60 03 00 A9 31 02 33 0B 01 00 AA AB 6A 63 AA 6B 02 33 2E 04 AA AB 60 03 00 6A AB 36 03 60 09 00 78 AB 01 30 69 93 29 01 AB 60 05 00 6B 01 01 60 03 00 8B 09 7A 0A A8 30 63 0B 03 00 14 AB 6A 63 60 09 01 6B 01 34 6B 02 33 67 09 A8 AA 36 04 30 69 A8 AC 60 06 00 36 03 06 0E 01 EB 30 69 AF AB AA 31 01 02 16 01 1A 80 7B 02 19 06 93 29 01 A9 60 03 00 6B 01 01 8B 06 A8 6A 63 60 05 01 A9 31 02 33 0B 03 00 AA AB 6A 63 AA 6B 02 33 2E 04 AA AB 60 05 00 36 03 06 0B 01 EB 30 69 AA AA 60 07 01 36 03 30 69 60 06 00 60 06 00 60 07 01 60 08 00 60 07 00 2B 05 05 AB 65 06 01 2D 07 60 06 00 60 06 00 60 07 01 2B 03 08 19 0A 7D 01 8B 0A 7A 0B A8 6A 63 67 09 A8 AA 36 04 30 69 B0 AC AA 31 01 02 16 02 9C 54 1B 63 8B 0A AB 60 09 01 AA 6A 63 6B 02 33 2E 04 AB A9 60 0A 01 36 03 30 69 16 01 60 08 00 60 08 00 60 09 01 60 08 00 60 07 00 2B 05 05 AB 65 0A 01 2D 07 60 08 00 60 08 00 60 07 00 6A AB AF 6B 00 34 2B 04 0B 19 0C ) SCREEN 1. 2. 3. RESIZE-ARRAY UPDATE-MARKS #Y(INSERT-LINELIST-1 #26Y(00 00 00 00 00 01 61 02 00 61 01 00 61 01 01 61 01 00 61 00 00 2B 05 01 19 01 ) NIL DELETE-REGION ) UNDO2 REFRESH-LINE GET-NEW-LINE #Y(INSERT-LINELIST-2 #26Y(00 00 00 00 00 01 61 03 00 61 02 00 61 02 01 61 01 00 61 00 00 2B 05 01 19 01 ) NIL DELETE-REGION ) REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) INSERT-STRING SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-STRING #14Y(00 02 00 00 00 03 AA AA 67 00 2E 01 19 03) STRING-TO-LINELIST INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-87 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) WRITE-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(WRITE-REGION #75Y(00 06 00 00 00 00 D4 AF D5 6A 53 AE AD 85 28 0F A8 AF 6B 01 01 AB AF 36 01 2F 8F 8D 06 1A 15 A8 AF 6B 01 01 AB AF 1A 1B A9 A9 6B 01 01 AC 36 02 2F 8F 7C 00 A8 AE 86 28 6F 16 01 A8 AD 6B 01 01 AB 36 01 AE 2F 8E 16 01 02 19 07 ) SCREEN 1. ) ) #Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) INSERT-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-STREAM #40Y(00 02 00 00 00 03 AA 5B AB 5B D4 36 01 2F 7C 3E 02 A9 24 00 09 D5 7B 02 16 02 2E 02 19 03 A9 7B 02 89 00 74 16 02 1A 60 ) "EOF" "" INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-89 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-TO-START-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to start of block" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-TO-START-OF-BLOCK #42Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 D6 6B 01 01 A9 D7 6B 01 01 93 1E 10 92 1E 0D AC 2D 04 AC 8B 02 8C 03 2B 03 05 19 05 19 05 ) SCREEN 5. 0. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-90 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) CURSOR-TO-END-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to end of block" SYSTEM::%SET-DOCUMENTATION #Y(CURSOR-TO-END-OF-BLOCK #42Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 D6 6B 01 01 A9 D7 6B 01 01 93 1E 10 92 1E 0D AC 2D 04 AC 8B 01 8C 02 2B 03 05 19 05 19 05 ) SCREEN 5. 0. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-91 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) SET-BLOCK-START SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "set block start" SYSTEM::%SET-DOCUMENTATION #Y(SET-BLOCK-START #137Y(00 01 00 02 00 0D 37 02 06 D4 AC D5 78 53 02 37 01 06 D4 AC D6 78 53 01 AB 2D 03 D4 AC D8 6A 53 A8 D9 6B 01 01 A9 DA 6B 01 01 8A 00 01 53 14 8A 01 01 54 14 89 03 80 49 99 14 8A 03 12 AA B1 87 01 2E 2A AA B1 88 01 2B 06 A9 B0 87 01 30 1E D4 B2 DA 6A 53 A8 6A 63 78 AC 03 A8 AC 6B 01 01 78 63 02 AB 95 72 AF DA AA 31 01 02 16 02 B0 9A 72 AE D9 AA 31 01 02 16 01 B1 A9 8D 04 2B 03 07 19 0A 70 B0 31 01 32 1A FF B0 ) SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-92 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) SET-BLOCK-END SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "set block end" SYSTEM::%SET-DOCUMENTATION #Y(SET-BLOCK-END #119Y(00 01 00 02 00 0D 37 02 06 D4 AC D5 78 53 02 37 01 06 D4 AC D6 78 53 01 AB 2D 03 D4 AC D8 6A 53 A8 D9 6B 01 01 A9 DA 6B 01 01 8A 01 01 53 14 8A 02 01 54 14 89 02 39 99 14 8A 04 12 AA B1 87 01 2D 1A AA B1 88 01 2B 06 A9 B0 87 01 2F 0E C3 EC EB 14 94 72 AE D9 AA 31 01 02 16 01 B0 9A 72 AE DA AA 31 01 02 16 01 B1 AB 8D 02 2B 03 07 19 0A 70 B0 31 01 31 1A 41 ) SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-93 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) HIDE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "remove block marks" SYSTEM::%SET-DOCUMENTATION #Y(HIDE-BLOCK #56Y(00 01 00 00 00 02 A9 2D 00 D5 AA D6 6A 53 A8 D7 6B 01 01 A9 D8 6B 01 01 AA D7 5B 31 01 02 AA D8 5B 31 01 02 93 1E 0F 92 1E 0C AC 8B 02 8B 02 6A AB 2B 03 05 19 05 19 05 ) UNDO-BLOCKMARKS SCREEN 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) UNDO-BLOCKMARKS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO-BLOCKMARKS #89Y(00 01 00 00 00 02 00 29 01 76 02 00 00 14 D4 A9 D5 78 53 00 A8 D6 6B 01 01 A9 D7 6B 01 01 89 00 1F 8A 01 14 95 29 02 94 53 0B 00 00 94 54 0B 00 01 A8 2A 06 01 EA 2D 05 AB 65 07 01 2D 05 19 06 95 29 02 93 53 0B 00 00 93 54 0B 00 01 A8 2A 04 01 EA 2D 05 8A 01 61 1A 4B ) SCREEN 5. 0. 1. #Y(UNDO-BLOCKMARKS-1 #20Y(00 00 00 00 00 01 61 01 00 61 00 00 61 00 01 2B 03 01 19 01) NIL SET-BLOCK-END ) UNDO2 #Y(UNDO-BLOCKMARKS-2 #20Y(00 00 00 00 00 01 61 01 00 61 00 00 61 00 01 2B 03 01 19 01) NIL SET-BLOCK-START ) #Y(UNDO-BLOCKMARKS-3 #13Y(00 00 00 00 00 01 61 00 00 2D 01 19 01) NIL HIDE-BLOCK ) ) ) #Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) MARK-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MARK-REGION #78Y(00 05 00 00 00 06 96 1E 80 42 D4 AE D5 6A 53 A8 D6 6B 01 01 A9 D7 6B 01 01 AF 99 72 AB D6 AA 31 01 02 16 01 AD 97 72 AB D7 AA 31 01 02 16 01 8A 01 11 8A 00 0E AF 8B 02 79 01 32 07 AD 8B 01 79 01 31 05 B0 B0 8D 07 2B 03 04 19 09 19 06 ) SCREEN 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-BLOCK #45Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 D6 6B 01 01 A9 D7 6B 01 01 8A 01 03 89 00 08 01 03 00 14 3C 04 19 05 8B 01 8C 02 8B 02 95 54 1A 71 ) SCREEN 5. 0. 1. ) ) #Y(#:TOP-LEVEL-FORM-97 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) DELETE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete block" SYSTEM::%SET-DOCUMENTATION #Y(DELETE-BLOCK #59Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 D6 6B 01 01 A9 D7 6B 01 01 8A 01 20 8A 00 1D AC 2D 04 AA D6 5B 31 01 02 AA D7 5B 31 01 02 AC 8B 02 8C 03 8B 03 8C 04 2B 05 05 19 05 00 19 05 ) SCREEN 5. 0. 1. UNDO-BLOCKMARKS DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-98 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) MOVE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "move block to cursor position" SYSTEM::%SET-DOCUMENTATION #Y(MOVE-BLOCK #108Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 D6 6B 01 01 A9 D7 6B 01 01 8A 01 80 50 8A 00 80 4C 8B 01 8C 02 8B 02 8C 03 B0 AC AC AC AC 66 05 04 B1 AD AD AD AD 2B 05 05 D4 B2 DA 6A 53 D4 B3 DB 6A 53 B3 AB 2E 08 B0 AA 2F D1 B0 A9 2F D3 AF D4 B5 DA 6A 53 2F D1 AF D4 B5 DB 6A 53 2F D3 B3 AA D4 B6 DA 6A 53 6A AB 2B 03 09 19 0C 00 19 05 ) SCREEN 5. 0. 1. REGION-TO-LINELIST DELETE-REGION 2. 3. INSERT-LINELIST REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-99 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) COPY-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "copy block to cursor position" SYSTEM::%SET-DOCUMENTATION #Y(COPY-BLOCK #29Y(00 01 00 00 00 02 A9 2D 00 3E 04 95 1E 0D AD AE AD AD AD AD 66 05 01 2E 02 19 06 19 06 ) GET-BLOCK REGION-TO-LINELIST INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-100 #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01) (SPECIAL *CUT-AND-PASTE-BUFFER*) *CUT-AND-PASTE-BUFFER* ) #Y(#:TOP-LEVEL-FORM-101 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) COPY-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "copy block into cut-and-paste buffer" SYSTEM::%SET-DOCUMENTATION #Y(COPY-BLOCK-BUFFER #29Y(00 01 00 00 00 02 A9 2D 00 3E 04 95 1E 0D AD AC AC AC AC 2B 05 01 0F 02 02 19 06 19 06 ) GET-BLOCK REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER* ) ) #Y(#:TOP-LEVEL-FORM-102 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) DELETE-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "yank block into cut-and-paste buffer" SYSTEM::%SET-DOCUMENTATION #Y(DELETE-BLOCK-BUFFER #69Y(00 01 00 00 00 02 D4 AA D5 6A 53 A8 D6 6B 01 01 A9 D7 6B 01 01 93 1E 2B 92 1E 28 AA D6 5B 31 01 02 AA D7 5B 31 01 02 8B 01 8C 02 8B 02 8C 03 B0 AC AC AC AC 2B 05 04 0F 05 B0 AC AC AC AC 2B 05 06 19 09 19 05 ) SCREEN 5. 0. 1. REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER* DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-103 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) PASTE-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "insert cut-and-paste buffer contents" SYSTEM::%SET-DOCUMENTATION #Y(PASTE-BUFFER #13Y(00 01 00 00 00 02 A9 63 00 2E 01 19 02) *CUT-AND-PASTE-BUFFER* INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-104 #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE 19 01 ) ERRORVAL "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT ERRORVAL #1="ERROR") WARN #1# ) #Y(#:TOP-LEVEL-FORM-105 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) WITH-IGNORED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-IGNORED-ERRORS #42Y(00 01 00 01 00 08 8C 02 36 01 6A A4 D4 A9 D5 D6 D7 D8 D9 DA DB B1 DC 6B 02 1F 73 04 73 02 73 02 73 01 AD 6B 02 1F 59 03 19 05 ) BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (&REST ARGS) (DECLARE (IGNORE ARGS)) RETURN-FROM (ERRORVAL) ) ) #Y(#:TOP-LEVEL-FORM-106 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) WITH-TRAPPED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-TRAPPED-ERRORS #44Y(00 01 00 01 00 08 8C 02 36 01 6A A4 D4 A9 D5 D6 D7 D8 D9 DA DB DC DD B3 DE 6B 02 1F 73 06 73 02 73 02 73 01 AD 6B 02 1F 59 03 19 05 ) BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (CONTINUE ERRSTR &REST ARGS) (DECLARE (IGNORE CONTINUE)) (FRESH-LINE *ERROR-OUTPUT*) (APPLY #'FORMAT *ERROR-OUTPUT* ERRSTR ARGS) RETURN-FROM (ERRORVAL) ) ) #Y(#:TOP-LEVEL-FORM-107 #31Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED 69 68 30 97 BE 19 01 ) FULL-TABLE "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT FULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL ) #Y(#:TOP-LEVEL-FORM-108 #31Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED 69 68 30 97 BE 19 01 ) HALF-TABLE "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT HALF-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL ) #Y(#:TOP-LEVEL-FORM-109 #31Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED 69 68 30 97 BE 19 01 ) LINE-EDIT-TABLE "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT LINE-EDIT-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL ) #Y(#:TOP-LEVEL-FORM-110 #31Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED 69 68 30 97 BE 19 01 ) NULL-TABLE "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT NULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL ) #Y(#:TOP-LEVEL-FORM-111 #15Y(00 00 00 00 00 01 63 00 D5 A9 D6 2F 6A 19 02) NULL-TABLE #\Escape (:LEAVE) ) #Y(#:TOP-LEVEL-FORM-112 #31Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED 69 68 30 97 BE 19 01 ) CONTROL-TABLE "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT CONTROL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL ) #Y(#:TOP-LEVEL-FORM-113 #31Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 36 05 C2 ED 69 68 30 97 BE 19 01 ) DOCSTRINGS-TABLE "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT DOCSTRINGS-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL ) #Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) BIND-KEY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(BIND-KEY #128Y(00 03 00 01 00 0A 39 01 AC 85 34 04 AC 59 01 EE AA 86 2D 0E 8A 02 0B 89 01 05 AA D4 2E 01 EB 94 56 EC 95 25 02 28 0E 03 1A 1F 63 04 63 05 63 06 59 03 1A 1B 63 04 0E 06 1A 04 63 04 0E 05 14 59 02 1A 0C 0E 04 1A 02 0E 06 14 59 01 1A 01 00 14 AD 5B 1A 25 7E 01 00 AA 5B 1A 0A 7E 01 00 AA A9 B1 2F 6A 7A 01 A9 84 B6 72 16 02 8A 04 09 63 07 A9 A9 AF 2F 6A 16 01 7A 01 A9 84 B6 57 00 19 08 ) FUNCTION DOCUMENTATION #S(HASH-TABLE EQ (:AND-WRITABLE-NOT-MULTILINE . 34.) (:AND-WRITABLE-MULTILINE . 30.) (:MULTILINE . 21.) (:WRITABLE . 15.) (:ALL . 5.) (:CONTROL . 1.) ) CONTROL-TABLE FULL-TABLE HALF-TABLE LINE-EDIT-TABLE DOCSTRINGS-TABLE ) ) #Y(#:TOP-LEVEL-FORM-115 #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01) (SPECIAL *EDITOR-ACTIVE*) *EDITOR-ACTIVE* ) #Y(#:TOP-LEVEL-FORM-116 #26Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 0A D5 D6 36 07 74 04 69 1B 2F 56 BF 19 01 ) (SPECIAL *EDIT-SCREENS*) *EDIT-SCREENS* 13. ) #Y(#:TOP-LEVEL-FORM-117 #26Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 0A D5 D6 36 07 74 04 69 1B 2F 56 BF 19 01 ) (SPECIAL *SCREEN-PATHS*) *SCREEN-PATHS* 13. ) #Y(#:TOP-LEVEL-FORM-118 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL *ACTIVE-SCREEN*) *ACTIVE-SCREEN* ) #Y(#:TOP-LEVEL-FORM-119 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL ERROR-SCREEN) ERROR-SCREEN ) #Y(#:TOP-LEVEL-FORM-120 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL TRACE-SCREEN) TRACE-SCREEN ) #Y(#:TOP-LEVEL-FORM-121 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL HELP-SCREEN) HELP-SCREEN ) #Y(#:TOP-LEVEL-FORM-122 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL MAIN-SCREEN) MAIN-SCREEN ) #Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) EDIT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EDIT #314Y(00 00 00 01 00 07 37 01 0E 74 01 0E 00 1C 0C D5 94 4C 0E 2C 1A 80 F2 0E 00 1B 74 2C 02 10 03 4D 81 0E 63 03 2D 04 3E 02 93 10 05 95 10 06 63 06 DB 2F 46 10 08 DD 83 53 0F 63 0A 2C 0B 0F 09 14 A9 E0 AA 31 01 02 16 02 E1 83 53 21 63 0A E2 E3 E4 E5 E6 E7 E8 E9 5D 16 5D 17 63 06 6B 02 33 2B 0A 0B 0F 0D 14 A9 E5 AA 31 01 02 16 02 5D 18 83 53 21 63 0A E2 5D 19 E4 5D 1A E6 5D 1B E8 5D 1C 5D 16 5D 1D 2B 0A 0B 0F 18 14 A9 5D 1E AA 31 01 02 16 02 5D 1F 83 53 80 42 63 0A E2 5D 20 E4 5D 1A E6 5D 21 2B 06 0B 0F 1F 14 A9 5D 22 AA 31 01 02 16 02 63 1F 5D 23 6A 64 2E 24 63 1F 00 29 01 00 0B 00 00 A8 65 25 01 63 26 2F 6C 06 00 00 EA 6A 64 2E 24 63 1F E0 E0 2B 03 27 5D 28 83 53 03 CA 0F 28 4D 36 43 29 32 AA 65 2A 01 BF 4A 27 02 10 00 AE 89 1E 17 63 0A 63 28 6B 01 01 63 2B 63 28 E5 87 01 2D FF 0B 0E 2D 14 2B 03 2E 35 00 00 11 4B 09 17 1A 56 09 17 1A 52 4E 63 0A 5B 5D 2F AA 31 00 24 16 01 63 03 2D 30 4F 12 03 16 02 4E 63 03 36 01 30 91 4F 11 19 02 ) *EDITOR-ACTIVE* EDITOR-ACTIVE SYSTEM::MAKE-WINDOW *WINDOW* SYSTEM::WINDOW-SIZE GLOBAL-SCREEN-HEIGHT GLOBAL-SCREEN-WIDTH #\Space BLANKS MAIN-SCREEN *EDIT-SCREENS* MAKE-SCREEN 0. ERROR-SCREEN :TITLE " Errors: " :HEIGHT 10. :WIDTH 50. :TOP-LIN 2. :LEFT-COL -53. TRACE-SCREEN " Trace: " 15. 70. 8. 3. 11. HELP-SCREEN " Key bindings " 78. 12. (" ===========================================================================" " K E Y B I N D I N G S" " ===========================================================================" "" "" ) INSERT-LINELIST #Y(EDIT-1 #22Y(00 02 00 00 00 03 5B D5 AC AC 66 04 02 07 00 00 55 0C 00 00 19 03 ) NIL "~:@C~25T --> ~A" FORMAT ) DOCSTRINGS-TABLE SET-CURSOR *ACTIVE-SCREEN* EDITOR #Y(EDIT-HANDLE-COMMAND #439Y(00 01 00 00 01 17 BF 4A 81 AB 97 25 02 81 9E 00 45 00 C1 0F 04 1A 81 9A C3 0F 04 1A 81 94 C4 0F 04 1A 81 8E 63 07 8B 05 88 01 01 81 80 96 53 0F 04 1A 81 7E 63 07 8B 05 88 01 01 81 70 63 07 8B 05 6B 01 01 67 0A 8A 00 0A A8 63 07 36 06 C9 EB 85 7B 32 CA 1A 2F 63 07 63 04 6B 01 01 67 0A 63 07 63 04 A9 A9 5B 31 01 02 16 02 63 0D 63 04 A9 A9 5B 31 01 02 16 02 8A 00 0A A8 63 07 36 06 C9 EB 85 7B 01 CA 0F 04 16 01 1A 81 26 A9 A9 2E 0F 16 02 1A 81 1D 63 0D 63 04 87 01 01 0F 63 0D 63 04 2C 0E 14 AA AA AA 31 01 02 16 03 63 07 63 04 6B 01 01 63 0D 63 04 6B 01 01 92 1F 4F A9 E0 E0 66 03 10 8B 01 8C 02 93 10 11 1A 08 A8 01 02 AF 2F 61 16 01 AD 5B E6 36 01 69 79 A8 E6 86 28 6C 00 16 01 11 16 05 1A 80 C9 63 07 63 04 6B 01 01 2C 0E 14 2E 0F 1A 80 BA 53 1A 10 DC 63 09 2F 8D 16 02 1A 80 AD 89 05 70 E7 2D 14 14 43 15 0B AA 2A 16 01 10 17 AE 30 0D 11 44 EA 14 23 18 5C 63 07 A9 AB 68 19 A9 AC AA 31 01 02 16 02 63 0D A8 AB AB 31 01 02 16 01 1A 80 63 5B 63 07 36 06 6A 7B 89 00 41 DC 63 09 2F 8D 16 01 1A 80 64 5B 63 07 36 06 6A 7B 8A 00 6C 5D 1A 5B 5D 1B 8B 08 66 03 1C 5D 1D AB 5D 1E 5D 1F 5D 20 5D 21 66 08 22 A8 99 54 54 54 70 2E 23 A8 2D 24 A8 E0 E0 2B 03 25 63 07 A8 AB AB 31 01 02 16 01 63 0D 99 54 70 9A 54 54 53 72 A9 AC AA 31 01 02 16 02 93 0F 04 16 02 1A 0E E0 63 04 D7 87 02 2D FE A9 DC 63 09 2F 8D 4B 19 03 19 03 ) NIL HANDLE-COMMAND #S(HASH-TABLE EQ (:FORM . 321.) (:LOAD . 301.) (:SAVE-AS . 220.) (:SAVE . 136.) (:DELETE . 407.) (:HIDE . 39.) (:TOP . 23.) (:HELP . 17.) (:TRACE . 11.) (:ERROR . 5.) (:LEAVE . 2.) ) 10. *ACTIVE-SCREEN* 11. 12. *EDIT-SCREENS* #\Bell *TERMINAL-IO* HIDE-SCREEN #.#'EQ 0. *SCREEN-PATHS* GET-SAVE-PATH SCREEN-TO-FILE MAKE-READ-FROM-SCREEN-STREAM *PACKAGE* "EOF" " File to load: " LINE-EDIT #:G2228 #Y(EDIT-HANDLE-COMMAND-1 #9Y(00 00 00 00 01 16 BF 45 00) NIL #.ERRORVAL ) *ERROR-HANDLER* #.ERRORVAL FILE-TO-SCREEN :TITLE " ~A " FORMAT :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN INSERT-STRING INSERT-LINE SET-CURSOR ) CONTROL-TABLE FULL-TABLE HALF-TABLE EDIT1 #Y(EDIT-2 #15Y(00 01 00 00 00 02 8A 01 03 A9 2D 00 00 19 02) HIDE-SCREEN) SYSTEM::CLEAR-WINDOW ) ) #Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) RETURN-NIL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(RETURN-NIL #9Y(00 00 00 00 01 16 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) EDIT1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EDIT1 #45Y(00 03 00 00 00 04 00 29 03 76 04 00 00 76 03 00 01 76 02 00 02 60 00 00 2D 00 BF 4A 0E AB 65 02 01 AC 65 03 01 93 6C 93 32 1A 7A 19 05 ) ACTIVATE-SCREEN EDIT #Y(EDIT1-READ-EDIT-COMMAND #24Y(00 00 00 00 00 01 61 00 00 2D 01 63 02 36 03 69 7D 63 03 2D 04 15 19 01 ) NIL SET-CURSOR-VISIBLE *KEYBOARD-INPUT* *WINDOW* SYSTEM::WINDOW-CURSOR-OFF ) #Y(EDIT1-EXECUTE-EDIT-COMMAND #96Y(00 01 00 00 00 02 BF 4A 80 54 AC 84 1F 0C AC D6 88 01 0C 06 AC D7 88 01 07 25 AC 61 00 01 36 01 2F 69 3E 02 89 00 2F AE 61 00 02 90 05 69 69 61 00 00 34 01 1D 23 DA 63 07 2F 8D 16 02 1A 1C D8 61 00 02 90 05 69 69 61 00 00 AE 34 02 1D 0C DA 63 07 2F 8D 1A 05 DC 94 4C 16 02 4B 19 02 19 02 ) NIL HANDLE-COMMAND #\Space #\Backspace :STRING-CHAR RETURN-NIL #\Bell *TERMINAL-IO* EDIT ) ) ) #Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-SAVE-PATH SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-SAVE-PATH #40Y(00 00 00 00 00 01 5B 1A 05 DA 63 07 2F 8D D4 2D 01 EA 43 02 0B AA 2A 03 01 10 04 AE 30 0D 11 44 EA 14 23 05 64 15 19 01 ) " Save as: " LINE-EDIT #:G2359 #Y(GET-SAVE-PATH-1 #9Y(00 00 00 00 01 16 BF 45 00) NIL #.ERRORVAL) *ERROR-HANDLER* #.ERRORVAL #\Bell *TERMINAL-IO* ) ) #Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) LINE-EDIT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(LINE-EDIT #56Y(00 01 00 01 00 08 37 01 02 BE EB D5 D6 D7 D8 D9 AF 66 06 06 A8 AB 2E 07 A8 63 08 63 09 66 03 0A A9 2D 0B 8B 00 23 0C 0D E2 AA D6 6A 53 E3 6B 01 01 30 62 19 05 E1 00 4C ) "" :HEIGHT 1. :WIDTH 40. :TITLE MAKE-SCREEN INSERT-STRING NULL-TABLE LINE-EDIT-TABLE EDIT1 HIDE-SCREEN :LEAVE HANDLE-COMMAND SCREEN 0. ) ) #Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) FILE-TO-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(FILE-TO-SCREEN #80Y(00 02 00 00 00 03 D4 5B D5 AD 36 01 6A 18 66 03 02 D7 AC D8 D9 DA DB 66 08 08 AB 86 1C 2F AB DD 36 03 6A 1F 4D 15 AB AB 2E 0A 8A 02 05 14 36 01 30 91 3A 4E 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 5C 30 91 4F 16 01 A8 DF DF 2B 03 0C 15 19 03 ) :TITLE " ~A " FORMAT :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN :INPUT INSERT-STREAM 0. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) SCREEN-TO-FILE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCREEN-TO-FILE #73Y(00 02 00 00 00 03 D4 AB D5 6A 53 A8 6A 63 6A AC AB D6 36 03 C1 EB 6A 1F 4D 20 AF D8 D8 AE B0 B0 6B 01 01 6A 63 AF 2B 06 05 8A 02 05 14 36 01 30 91 3A 4E 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 5C 30 91 4F 16 03 02 19 03 ) SCREEN 1. :OUTPUT :RENAME 0. WRITE-REGION ) ) #Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) FINISH SYSTEM::REMOVE-OLD-DEFINITIONS #Y(FINISH #9Y(00 01 00 00 00 02 D4 BF 4C) EDIT (:FINISH)) ) #Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) MAKE-READ-FROM-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-READ-FROM-SCREEN-STREAM #112Y(00 03 00 02 00 0F 00 29 04 76 05 00 00 76 04 00 01 37 03 01 00 0B 00 02 37 02 01 00 0B 00 03 92 29 01 D4 B0 D5 30 53 0B 00 00 06 01 02 1C 30 06 01 03 1B 0E 60 00 00 60 02 02 6B 01 01 30 63 0B 01 03 92 29 03 00 0B 00 00 0B 00 01 A8 65 02 01 5B 2E 03 0B 00 02 14 A9 65 04 01 3C 02 19 09 60 00 00 6A 63 30 AC 0B 01 02 06 01 03 1C 46 1A 52 ) SCREEN 1. #Y(MAKE-READ-FROM-SCREEN-STREAM-1 #102Y(00 00 00 00 00 01 61 02 00 61 02 02 87 01 2E 80 40 61 02 00 61 02 02 88 01 2B 0A 61 02 01 61 02 03 87 01 30 2C 61 01 00 61 02 00 6B 01 01 07 02 00 0C 00 00 07 02 01 0C 00 01 14 A9 6A 63 87 01 30 12 A8 61 02 01 AA 30 63 0C 02 01 14 3C 03 19 02 00 19 01 61 02 00 30 AB 0C 02 00 BF 0C 02 01 63 02 D5 C1 1A 66 ) NIL 0. NEWLINE-AS-STRING 1. ) MAKE-BUFFERED-INPUT-STREAM #Y(MAKE-READ-FROM-SCREEN-STREAM-2 #38Y(00 00 00 00 00 01 61 00 02 67 01 A8 23 02 0F 61 02 00 A9 61 02 01 31 01 32 14 3C 02 19 02 61 00 00 07 00 01 1A 73 ) NIL SYSTEM::BUFFERED-INPUT-STREAM-INDEX 0. ) ) ) #Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) MAKE-WRITE-TO-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-WRITE-TO-SCREEN-STREAM #30Y(00 01 00 00 00 02 00 29 01 76 02 00 00 A8 65 00 01 60 01 00 D5 A9 D6 78 53 00 2E 03 19 03 ) #Y(MAKE-WRITE-TO-SCREEN-STREAM-1 #14Y(00 01 00 00 00 02 61 00 00 AA 2E 01 19 02) NIL INSERT-STRING ) SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM ) ) #Y(#:TOP-LEVEL-FORM-133 #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG #87Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 80 43 94 54 70 95 54 54 70 36 01 6A A4 36 01 6A A4 D6 A9 AD 73 02 73 01 D7 AB 73 02 D8 D9 DA AF 73 01 DB B0 B2 73 03 DC DD DE B4 73 02 73 02 DF B5 E0 6B 02 1F 73 03 73 04 73 02 E1 AE 73 02 73 03 59 04 19 07 AA 2D 01 19 03 ) 3. SYSTEM::MACRO-CALL-ERROR LET CURSOR-TO-END-OF-TEXT MAKE-BUFFERED-OUTPUT-STREAM FUNCTION LAMBDA INSERT-STRING WHEN PLUSP LENGTH SETQ (T) SCREEN-COL ) ) #Y(#:TOP-LEVEL-FORM-134 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) EVAL-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EVAL-REGION #206Y(00 05 00 00 00 06 8A 04 80 7B 00 29 02 00 0B 00 00 0B 00 01 AE AE AE AE AE 66 05 00 63 01 2D 02 10 03 96 29 01 0E 04 0B 00 00 14 2D 05 A8 65 06 01 60 01 00 DB A9 DC 78 53 00 2E 09 16 01 10 0A 99 29 01 0E 0B 0B 00 00 14 2D 05 A8 65 0C 01 60 01 00 DB A9 DC 78 53 00 2E 09 16 01 10 0D 43 0E 0F AA 2A 0F 01 10 10 B7 36 03 69 79 2F 60 11 44 3F 14 B2 36 01 30 91 8A 00 2D 06 0B 00 1B 28 36 01 2F 91 1A 17 00 19 06 E7 D2 4C E7 D3 4C E5 36 01 2F 8D E6 36 01 2F 8D 36 01 2F 90 8B 00 7A 01 36 01 2F 86 89 00 67 36 01 2F 91 63 03 36 01 30 91 63 0A 36 01 30 91 63 0D 36 01 30 91 06 0B 00 1B 46 06 0B 01 1B 44 02 16 01 12 03 19 08 ) MAKE-READ-FROM-SCREEN-STREAM MAIN-SCREEN MAKE-WRITE-TO-SCREEN-STREAM *STANDARD-OUTPUT* ERROR-SCREEN CURSOR-TO-END-OF-TEXT #Y(EVAL-REGION-1 #27Y(00 01 00 00 00 02 61 00 00 AA 2E 01 A9 6A 63 85 A7 03 00 19 02 02 0C 01 00 19 02 ) NIL INSERT-STRING ) SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM *ERROR-OUTPUT* TRACE-SCREEN #Y(EVAL-REGION-2 #27Y(00 01 00 00 00 02 61 00 00 AA 2E 01 A9 6A 63 85 A7 03 00 19 02 02 0C 01 01 19 02 ) NIL INSERT-STRING ) *TRACE-OUTPUT* #:G2506 #Y(EVAL-REGION-3 #21Y(00 02 00 00 01 18 63 01 2F 91 90 02 63 01 AC 96 35 02 C1 45 00) NIL *ERROR-OUTPUT* FORMAT #.ERRORVAL ) *ERROR-HANDLER* #\Space #\; EDIT (:ERROR) (:TRACE) ) ) #Y(#:TOP-LEVEL-FORM-135 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) EVAL-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "evaluate block contents" SYSTEM::%SET-DOCUMENTATION #Y(EVAL-BLOCK #19Y(00 01 00 00 00 02 8F 00 41 AA 5F 00 01 2D 01 3D 42 19 02) EVAL-REGION GET-BLOCK ) ) #Y(#:TOP-LEVEL-FORM-136 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-WHITESPACE-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-WHITESPACE-RIGHT #79Y(00 01 00 02 00 0D 37 02 06 D4 AC D5 78 53 02 37 01 06 D4 AC D6 78 53 01 D4 AC D7 6A 53 A8 6A 63 6A AC A9 AD 6B 01 01 D8 A9 36 05 9D ED D9 6A 7B 89 00 13 16 01 AD AA 85 28 12 7C 05 C4 EE AA AE 79 01 01 00 1A 61 AE A9 3C 02 19 08 00 19 07 ) SCREEN 2. 3. 1. #\Space #.#'EQL 0. ) ) #Y(#:TOP-LEVEL-FORM-137 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) SKIP-WHITESPACE-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "skip whitespace right" SYSTEM::%SET-DOCUMENTATION #Y(SKIP-WHITESPACE-RIGHT #24Y(00 01 00 00 00 02 A9 2D 00 3E 02 93 1E 08 AB AA AA 2B 03 01 19 04 19 04 ) GET-WHITESPACE-RIGHT SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-138 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) MODIFIED-READTABLE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MODIFIED-READTABLE #19Y(00 00 00 00 00 01 36 02 69 72 D4 D5 5B AB 2F 74 15 19 01) #\| #Y(MODIFIED-READTABLE-1 #24Y(00 02 00 00 00 03 5B AB 5B 36 02 69 7F 23 00 03 00 19 03 D5 D6 AC 5A 02 ) #\# "~S from ~S: |# is legal only after #|" READ ) ) ) #Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-NEXT-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-NEXT-OBJECT #119Y(00 01 00 03 00 11 37 03 06 D4 AD D5 78 53 03 37 02 06 D4 AD D6 78 53 02 37 01 03 2C 03 EB AC AC AC 2B 03 04 3E 02 89 01 0D 01 04 3C 04 19 07 01 04 3C 04 4E 1A 37 AE AA AA 2B 03 05 3E 02 4D 2D 43 06 18 AA 2A 07 01 10 08 02 10 09 C8 10 0B A5 10 0C BA 5C 5B 5C 2F 7A 12 04 44 14 23 0D 50 CC 41 AE 5F 00 04 5F 00 02 34 00 3D 42 4E 5F 00 01 36 01 30 91 4F 19 09 ) SCREEN 2. 3. MODIFIED-READTABLE GET-WHITESPACE-RIGHT MAKE-READ-FROM-SCREEN-STREAM #:G2607 #Y(GET-NEXT-OBJECT-1 #9Y(00 00 00 00 01 16 BF 45 00) NIL #.ERRORVAL) *ERROR-HANDLER* *READ-SUPPRESS* #.MOST-POSITIVE-FIXNUM SYSTEM::*BACKQUOTE-LEVEL* *READTABLE* #.ERRORVAL #.#'VALUES ) ) #Y(#:TOP-LEVEL-FORM-140 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) MARK-NEXT-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "mark next Lisp object" SYSTEM::%SET-DOCUMENTATION #Y(MARK-NEXT-OBJECT #19Y(00 01 00 00 00 02 8F 00 41 AA 5F 00 01 2D 01 3D 42 19 02) MARK-REGION GET-NEXT-OBJECT ) ) #Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-TOPLEVEL-FORM #203Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 D4 AC D7 6A 53 AA AA 6B 01 01 1A 16 14 78 AB 02 16 01 1A 23 7D 03 AC AC 79 01 01 01 14 78 63 02 16 01 D8 A9 5C 36 04 9A EC D9 6A 7B 89 00 5D AB 24 06 61 C4 EC 16 01 16 01 2C 07 14 AA 5B DC 1A 13 AB AB AB AB 73 04 7B 07 16 04 1A 80 5C 53 40 19 09 7D 02 AE AB 6B 01 01 D8 A9 36 05 D9 6A 7B 8A 00 80 46 A9 A9 69 34 DD 36 03 83 DC 3C A8 AB 88 01 2F 36 92 EC B2 AD AA B0 2B 04 0A 3E 04 8A 03 26 14 B4 87 01 2D 0C AB B4 88 01 2B 1A AA B3 88 01 2F 14 B3 AA 87 01 2D FF A6 B3 AA 88 01 2B 07 B2 A9 87 01 2F FF 99 16 04 16 02 AA 24 06 FF A1 89 01 FF 99 01 04 3C 04 19 09 ) SCREEN 1. 2. 3. #\Space #.#'EQL 0. MODIFIED-READTABLE #.MOST-POSITIVE-FIXNUM (#\; #\)) GET-NEXT-OBJECT ) ) #Y(#:TOP-LEVEL-FORM-142 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) MARK-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "mark surrounding top level form" SYSTEM::%SET-DOCUMENTATION #Y(MARK-TOPLEVEL-FORM #19Y(00 01 00 00 00 02 8F 00 41 AA 5F 00 01 2D 01 3D 42 19 02) MARK-REGION GET-TOPLEVEL-FORM ) ) #Y(#:TOP-LEVEL-FORM-143 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) EVAL-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "evaluate surrounding top level form" SYSTEM::%SET-DOCUMENTATION #Y(EVAL-TOPLEVEL-FORM #19Y(00 01 00 00 00 02 8F 00 41 AA 5F 00 01 2D 01 3D 42 19 02) EVAL-REGION GET-TOPLEVEL-FORM ) ) #Y(#:TOP-LEVEL-FORM-144 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-NEXT-TAB-POS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-NEXT-TAB-POS #93Y(00 03 00 00 00 04 D4 AC D5 6A 53 A8 AC 6B 01 01 A8 6A 63 AC A9 87 01 30 12 A9 AD 69 34 24 02 19 D6 AA 36 05 9D ED D7 30 7B 1D 30 15 19 06 D9 AD 6B 02 33 A9 31 01 32 19 07 A9 AD 69 34 23 04 6E D6 AA 36 06 9E EE 6A 7B 8A 00 0B D6 AB 36 05 99 ED D7 30 7B 1D 03 93 19 08 19 08 19 07 ) SCREEN 1. #\Space #.#'EQL #\( 2. ) ) #Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) CURSOR-TO-COL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-COL #55Y(00 02 00 00 00 03 D4 AB D5 6A 53 D4 AC D6 6A 53 A9 A9 6B 01 01 A8 6A 63 AD A9 88 01 2E 11 A9 AE 2E 03 A9 D8 AA 36 01 30 68 AE AB AA 2B 03 05 AE AB AF 2B 03 06 19 07 ) SCREEN 1. 2. RESIZE-ARRAY #\Space REFRESH-LINE SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-146 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) NEXT-INDENT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "insert spaces up to next tab stop" SYSTEM::%SET-DOCUMENTATION #Y(NEXT-INDENT #41Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 A9 23 03 0D AB AC 8E 03 AB 2B 03 05 14 2E 04 19 04 AB D5 AA 31 02 33 1A 73 ) SCREEN 2. 3. 0. CURSOR-TO-COL GET-NEXT-TAB-POS ) ) #Y(#:TOP-LEVEL-FORM-147 #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 D6 2F 56 BF 19 01) (SPECIAL *SEARCH-STRING*) *SEARCH-STRING* "" ) #Y(#:TOP-LEVEL-FORM-148 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) SEARCH-FIRST SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "search for a string" SYSTEM::%SET-DOCUMENTATION #Y(SEARCH-FIRST #18Y(00 01 00 00 00 02 D4 63 01 2E 02 0F 01 A9 2D 03 19 02) " Search: " *SEARCH-STRING* LINE-EDIT SEARCH-NEXT ) ) #Y(#:TOP-LEVEL-FORM-149 #22Y(00 00 00 00 00 01 D4 2D 01 D4 D6 D7 2B 03 04 D4 D9 30 96 BE 19 01) SEARCH-NEXT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "continue searching" SYSTEM::%SET-DOCUMENTATION #Y(SEARCH-NEXT #90Y(00 01 00 00 00 02 D4 AA D5 6A 53 D4 AB D6 6A 53 D4 AC D7 6A 53 AA 6A 63 A9 AC AC 6B 01 01 6A 63 87 01 2D 22 00 14 89 00 15 7C 03 14 AA 85 28 27 63 04 AD AD 6B 01 01 36 08 78 82 00 1C 6B AE AC AA 2B 03 05 19 07 63 04 AC AC 6B 01 01 36 08 B3 78 AB 05 30 82 1A 4E 00 19 07 ) SCREEN 1. 2. 3. *SEARCH-STRING* SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-150 #1212Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 2D 01 D7 D8 30 96 D9 DA DB DC 67 00 2B 04 09 DE DA DF E0 67 00 2B 04 09 E1 DA E2 E3 67 00 2B 04 09 E4 DA E5 E6 67 00 2B 04 09 E7 DA E8 E9 67 00 2B 04 09 5D 16 DA 5D 17 5D 18 67 00 2B 04 09 5D 19 DA 5D 1A 5D 1B 67 00 2B 04 09 5D 1C DA 5D 1D 5D 1E 67 00 2B 04 09 5D 1F DA 5D 20 5D 21 67 00 2B 04 09 5D 22 DA 5D 23 5D 24 67 00 2B 04 09 5D 25 DA 5D 26 5D 27 2B 04 09 5D 28 DA 5D 29 5D 2A 2B 04 09 5D 2B DA 5D 2C 5D 2D 2B 04 09 5D 2E DA 5D 2F E0 67 03 2B 04 09 5D 30 DA 5D 31 E3 67 03 2B 04 09 5D 32 DA 5D 33 E6 67 03 2B 04 09 5D 34 DA 5D 35 E9 67 03 2B 04 09 5D 36 DA 5D 37 5D 18 67 03 2B 04 09 5D 38 DA 5D 39 5D 1B 67 03 2B 04 09 5D 3A DA 5D 3B 5D 1E 67 03 2B 04 09 5D 3C DA 5D 3D 5D 21 67 03 2B 04 09 5D 3E DA 5D 3F 5D 24 67 03 2B 04 09 5D 40 DA 5D 41 5D 42 2B 04 09 5D 43 DA 5D 44 5D 45 2B 04 09 5D 46 DA 5D 47 5D 48 2B 04 09 5D 49 DA 5D 4A 5D 4B 2B 04 09 5D 4C DA 5D 4D 5D 4E 2B 04 09 5D 4F 5D 50 90 51 2B 03 09 5D 52 5B 1A 29 7E 01 00 00 29 01 76 01 00 00 14 5D 53 5C 69 33 60 01 00 5D 54 5C 69 33 A9 A9 73 02 5D 50 AC 65 55 01 2B 03 09 16 03 7A 01 A9 84 B6 53 16 02 5D 56 5D 50 5D 57 2B 03 09 5D 58 5D 59 5D 5A 2B 03 09 5D 5B 5D 59 5D 5C 2B 03 09 5D 5D 5D 5E 5D 5F 2B 03 09 5D 60 5D 5E 5D 61 2B 03 09 5D 62 5D 59 5D 63 2B 03 09 5D 64 5D 59 5D 65 2B 03 09 5D 66 5D 59 5D 67 2B 03 09 5D 68 5D 59 5D 69 2B 03 09 5D 6A 5D 5E 5D 6B 2B 03 09 5D 6C 5D 5E 5D 6D 2B 03 09 5D 6E 5D 59 5D 5A 2B 03 09 5D 6F 5D 59 5D 5C 2B 03 09 5D 70 5D 5E 5D 5F 2B 03 09 5D 71 5D 5E 5D 61 2B 03 09 5D 72 5D 59 5D 63 2B 03 09 5D 73 5D 59 5D 65 2B 03 09 5D 74 5D 5E 5D 6B 2B 03 09 5D 75 5D 5E 5D 6D 2B 03 09 5D 76 5D 59 5D 77 2B 03 09 5D 78 5D 59 5D 79 2B 03 09 5D 7A 5D 5E 5D 7B 2B 03 09 5D 7C 5D 5E 5D 7D 2B 03 09 5D 7E 5D 5E 5D 7F 2B 03 09 5D 80 80 5D 5E 5D 80 81 2B 03 09 5D 80 82 5D 5E 5D 80 83 2B 03 09 5D 80 84 5D 80 85 5D 80 86 2B 03 09 5D 80 87 5D 80 88 5D 80 89 2B 03 09 5D 80 8A 5D 80 85 5D 80 8B 2B 03 09 5D 80 8C 5D 80 85 5D 80 8D 2B 03 09 5D 80 8E 5D 50 5D 80 8F 2B 03 09 5D 80 90 5D 80 85 5D 80 91 2B 03 09 5D 80 90 5D 80 88 5D 80 8F 2B 03 09 5D 80 92 5D 50 5D 80 93 2B 03 09 5D 80 94 5D 80 85 5D 80 95 2B 03 09 5D 80 94 5D 80 88 5D 80 93 2B 03 09 5D 80 96 5D 5E 5D 80 97 2B 03 09 5D 80 98 5D 5E 5D 80 99 2B 03 09 5D 80 9A 5D 5E 5D 80 9B 2B 03 09 5D 80 9C 5D 80 85 5D 80 9D 2B 03 09 5D 80 9E 5D 50 5D 80 9F 2B 03 09 5D 80 A0 5D 5E 5D 80 A1 2B 03 09 5D 80 A2 5D 50 5D 80 A3 2B 03 09 5D 80 A4 5D 50 5D 80 A5 2B 03 09 5D 80 A6 5D 50 5D 80 A7 2B 03 09 5D 80 A8 5D 5E DC 67 80 A9 DC 67 80 AA 2B 04 09 5D 80 AB 5D 5E E0 67 80 A9 E0 67 80 AA 2B 04 09 5D 80 AC 5D 5E E3 67 80 A9 E3 67 80 AA 2B 04 09 5D 80 AD 5D 5E E6 67 80 A9 E6 67 80 AA 2B 04 09 5D 80 AE 5D 5E E9 67 80 A9 E9 67 80 AA 2B 04 09 5D 80 AF 5D 5E 5D 18 67 80 A9 5D 18 67 80 AA 2B 04 09 5D 80 B0 5D 5E 5D 1B 67 80 A9 5D 1B 67 80 AA 2B 04 09 5D 80 B1 5D 5E 5D 1E 67 80 A9 5D 1E 67 80 AA 2B 04 09 5D 80 B2 5D 5E 5D 21 67 80 A9 5D 21 67 80 AA 2B 04 09 5D 80 B3 5D 5E 5D 24 67 80 A9 5D 24 67 80 AA 2B 04 09 5D 80 B4 5D 5E DC 67 80 B5 DC 67 80 B6 2B 04 09 5D 80 B7 5D 5E E0 67 80 B5 E0 67 80 B6 2B 04 09 5D 80 B8 5D 5E E3 67 80 B5 E3 67 80 B6 2B 04 09 5D 80 B9 5D 5E E6 67 80 B5 E6 67 80 B6 2B 04 09 5D 80 BA 5D 5E E9 67 80 B5 E9 67 80 B6 2B 04 09 5D 80 BB 5D 5E 5D 18 67 80 B5 5D 18 67 80 B6 2B 04 09 5D 80 BC 5D 5E 5D 1B 67 80 B5 5D 1B 67 80 B6 2B 04 09 5D 80 BD 5D 5E 5D 1E 67 80 B5 5D 1E 67 80 B6 2B 04 09 5D 80 BE 5D 5E 5D 21 67 80 B5 5D 21 67 80 B6 2B 04 09 5D 80 BF 5D 5E 5D 24 67 80 B5 5D 24 67 80 B6 2B 04 09 5D 80 C0 5D 50 5D 80 C1 2B 03 09 5D 80 C2 5D 50 5D 80 C3 2B 03 09 5D 80 C4 5D 59 5D 80 C5 2B 03 09 5D 80 C6 5D 59 5D 80 C7 2B 03 09 19 01 ) C-H-DOC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(C-H-DOC #15Y(00 01 00 00 00 02 5B D4 8D 03 2B 03 01 19 02) "show window ~D" FORMAT ) M-H-DOC #Y(M-H-DOC #15Y(00 01 00 00 00 02 5B D4 8D 03 2B 03 01 19 02) "hide window ~D" FORMAT ) #\CONTROL-HYPER-A :CONTROL (:TOP 0.) 0. BIND-KEY #\CONTROL-HYPER-B (:TOP 1.) 1. #\CONTROL-HYPER-C (:TOP 2.) 2. #\CONTROL-HYPER-D (:TOP 3.) 3. #\CONTROL-HYPER-E (:TOP 4.) 4. #\CONTROL-HYPER-F (:TOP 5.) 5. #\CONTROL-HYPER-G (:TOP 6.) 6. #\CONTROL-HYPER-H (:TOP 7.) 7. #\CONTROL-HYPER-I (:TOP 8.) 8. #\CONTROL-HYPER-J (:TOP 9.) 9. #\HYPER-\ (:HELP) "show help window (this text)" #\CONTROL-E (:ERROR) "show error window" #\CONTROL-T (:TRACE) "show trace window" #\META-HYPER-B (:HIDE 1.) #\META-HYPER-C (:HIDE 2.) #\META-HYPER-D (:HIDE 3.) #\META-HYPER-E (:HIDE 4.) #\META-HYPER-F (:HIDE 5.) #\META-HYPER-G (:HIDE 6.) #\META-HYPER-H (:HIDE 7.) #\META-HYPER-I (:HIDE 8.) #\META-HYPER-J (:HIDE 9.) #\META-Q (:DELETE) "delete current window" #\META-X (:LOAD) "load file" #\META-S (:SAVE) "store to file" #\META-W (:SAVE-AS) "store to new file" #\Escape (:LEAVE) "quit editor" :STRING-CHAR :WRITABLE INSERT-CHAR (#\( #\) #\+ #\- #\* #\/ #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\. #\,) :HYPER :SUPER #Y(#:TOP-LEVEL-FORM-150-1 #14Y(00 01 00 00 00 02 A9 61 00 00 2E 01 19 02) NIL INSERT-CHAR ) #\SUPER-Space #Y(#:TOP-LEVEL-FORM-150-2 #12Y(00 01 00 00 00 02 A9 D4 2E 01 19 02) #\Space INSERT-CHAR ) #\HYPER-\⑧ :MULTILINE CURSOR-UP #\HYPER-\② CURSOR-DOWN #\HYPER-\④ :ALL CURSOR-LEFT #\HYPER-\⑥ CURSOR-RIGHT #\SUPER-HYPER-\⑧ LINE-UP #\SUPER-HYPER-\② LINE-DOWN #\CONTROL-HYPER-\⑧ PAGE-UP #\CONTROL-HYPER-\② PAGE-DOWN #\SUPER-HYPER-\④ CURSOR-TO-START-OF-LINE #\SUPER-HYPER-\⑥ CURSOR-TO-END-OF-LINE #\CONTROL-P #\CONTROL-N #\CONTROL-S #\CONTROL-D #\CONTROL-SUPER-P #\CONTROL-SUPER-N #\CONTROL-SUPER-S #\CONTROL-SUPER-D #\HYPER-\⑦ CURSOR-TO-START-OF-TEXT #\SUPER-HYPER-\⑦ CURSOR-TO-END-OF-TEXT #\CONTROL-B SET-BLOCK-START #\CONTROL-K SET-BLOCK-END #\META-B CURSOR-TO-START-OF-BLOCK #\META-K CURSOR-TO-END-OF-BLOCK #\CONTROL-H HIDE-BLOCK (#\Return #\HYPER-Return) :AND-WRITABLE-MULTILINE INSERT-LINE (#\Return #\HYPER-Return) :AND-WRITABLE-NOT-MULTILINE FINISH #\CONTROL-Y DELETE-LINE #\CONTROL-J COMBINE-LINES #\HYPER- DELETE-CHAR #\SUPER-HYPER- DELETE-CHAR-1 #\Backspace BACKSPACE #\SUPER-Backspace BACKSPACE-1 #\CONTROL-Space SKIP-WHITESPACE-RIGHT #\CONTROL-HYPER-\⑥ MARK-NEXT-OBJECT #\CONTROL-HYPER-Return MARK-TOPLEVEL-FORM #\SUPER-HYPER-Return EVAL-TOPLEVEL-FORM #\CONTROL-X DELETE-BLOCK-BUFFER #\CONTROL-C COPY-BLOCK-BUFFER #\CONTROL-V PASTE-BUFFER #\CONTROL-SUPER-X DELETE-BLOCK #\Tab NEXT-INDENT #\CONTROL-0 SET-MARK-FN SET-MARK-DOC #\CONTROL-1 #\CONTROL-2 #\CONTROL-3 #\CONTROL-4 #\CONTROL-5 #\CONTROL-6 #\CONTROL-7 #\CONTROL-8 #\CONTROL-9 #\META-0 CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC #\META-1 #\META-2 #\META-3 #\META-4 #\META-5 #\META-6 #\META-7 #\META-8 #\META-9 #\CONTROL-SUPER-HYPER-\④ CLEAR-START-OF-LINE #\CONTROL-SUPER-HYPER-\⑥ CLEAR-END-OF-LINE #\CONTROL-SUPER-L SEARCH-FIRST #\CONTROL-L SEARCH-NEXT ) #Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D4 2F 5F D5 5C 2F 56 BF 19 01) (SPECIAL *USE-ED*) *USE-ED* ) #Y(#:TOP-LEVEL-FORM-152 #11Y(00 00 00 00 00 01 D4 2F 58 19 01) ED) #Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) ED SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ED #293Y(00 00 00 01 00 07 39 01 01 03 8A 04 17 AC 85 42 05 AC 86 2E 80 D3 0E 00 1B 11 96 14 2D 03 19 05 2C 01 19 05 0E 00 1B 78 C0 1A 70 D8 AD 36 01 6A 1A 73 02 2D 01 19 05 96 EC 1A 80 BB E0 AC 63 0D AB AD 36 0B 75 06 EB 69 8A 73 05 2D 01 1A 80 96 A9 DB 6A 50 AA DC 6A 50 AB DD 6A 50 AC DE 6A 50 AD DF 6A 50 6B 05 00 0E 00 1B 51 2C 0E 14 A8 E3 36 03 6A 1F 4D 1B AD AB 2F 88 AA 2F 90 AA 2F 90 8A 02 05 14 36 01 30 91 3A 4E 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 5C 30 91 4F 16 01 A8 2D 03 A8 E4 36 03 6A 1F 4D 32 0E 0D 10 0D 1A 0C A8 01 02 B3 69 61 36 01 2F 87 16 01 AD 5B E5 36 01 69 79 A8 E5 86 28 68 16 01 11 8A 02 05 14 36 01 30 91 3A 4E 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 5C 30 91 4F 16 02 95 19 06 AC 85 2D FF 49 AC 86 44 2F AC D9 78 50 02 AA 84 54 26 AA 77 5C 01 1B 05 94 56 EB 1C 1B A9 86 44 17 A9 85 30 13 AC 85 2D 05 A9 AD 86 28 0A AA DA 36 01 78 98 00 1B FF 2F E6 AD 5A 01 ) *USE-ED* EDIT "" EDIT-FILE :LOAD 0. SYSTEM::DEFINITION 4. 5. 6. 7. 8. :FORM *PACKAGE* EDITOR-TEMPFILE :OUTPUT :INPUT "EOF" "~S cannot be edited." ) )